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TASC. The Applesoft Compiler. 

It turns your Apple into 
a power tool. 



step up to speed. TASC, the Applesoft Compiler, 
converts a standard Applesoft BASIC program 
into super-fast machine code. By 
increasing program execution speed 
up to 20 times, Microsoft gives 
you a power tool for Applesoft 
BASIC programming. 
Highest capacity available. 
TASC will compile and run 
larger programs than any other 
Applesoft Compiler As a 
disk-based system, it doesn't 
require the simultaneous pres- 
ence of compiler and program 
in memory. The memory you save 
allows you to compile significantly 
bigger programs. 

Power without bulk. Code expansion of up to 100% 
severely restricts other compilers. TASC's special 
code compression schemes typically limit code 
expansion to only 25%, You'll really appreciate that 
with complex programs or programs that utilize 
Apple's hires graphic pages. 
More BASIC power. TASC's powerful new 
commands increase Applesoft BASIC programming 
capability. Cham with COMMON allows compiled 
programs to share variables, so a main menu 

'Applesofl IS a Iraflemark ol Apple Computer. Inc 




supports several programs in a 
single runtime environment. 
TASC's True Integer Arithmetic 
and Integer FOR... NEXT 
capabilities maximize the execu- 
tion speed of compiled programs. 
TASC's near total compatibility 

with Applesoft speeds compil- 
ation of existing programs 
with little or no modification. 
What about mistakes? You 
perfect your programs inter- 
actively with Applesoft. If some- 
thing does slip by TASC recovers 
from errors discovered in compilation 
and traps all runtime errors. It even permits 
graceful interruptions during compilation. 
See for yourself. Ask for a demonstration of 
TASC at your Microsoft dealer Discover the software 
package that turns your Apple into a power tool. 

V CONSUMER^ PRODUCTsP 

A DivhSJon qI Microsoll Inc 
10700 Northup Way • Beffevue. WA 9800^ 




JUDGE THE REST, THEN BUY THE BEST 

Only GIMIX offers you SOFTWARE SWITCHING between MtCROWARE's OS-9 and TSC's 

FLEX. Plus you get the power of tfie Gf^lXBUG system monitor with its advanced debugging 
utility, and memory manipulation routines, A wide variety of languages and other software is 
available for these two predominant 6809 Disk Operating Systems. 
You can order a system to meet your needs, or select from the 6809 Systems featured below. 

JUDGE THE FEATURES AND QUALITY OF GIMIX 6809 SYSTEMS 

GIMIX' CLASSY CHASSIS'" is a heavyweight aluminum mainframe caOinel with back panel cutouts lo canvenienlly connect your lerminals. printers, drives, monitors. 
Blc. A 3 position keyswilch lets you lock out rtie reset switch. The power supply leatures a (erro- resonant constant voltage transformer thai supplies BV at 30 amps. + 15V al 
Samps anfl - 15V at 5 amps to insure against problems caused By adverse power inpul conflilions. It supplies power lor all the boards in a fully loaded system plus two 
5 V. ■■ drii/Bs (yes! even a Wincfiester) thai can be installed in (tie cabinet The Mother board has lifleen 50 pin and eight 30 pin slots to giue you the most room for expansion 
of any SS50 system available. 1 1 standard baud rates from 75 to 38 4K are provided and Ihe I / section has its own extended addressing fo permit the maximum memory 
address space to be used. The 2 Mti; 6309 CPU card has Doth a lime of day clock with battery back-up and a 5840 programmable timer. It also contains IK RAM, 4 
PROM/ROM/t^AM sockets, and provides tor an optional 9511 A or9512 ArilhmEtic Processor, The RhfA boards use higti speed, low power STATIC memory thai is fully com- 
patible with any DI^A technique. STATIC RAM requires no relresh liming, no wail states or clock stretching, and allows tast, reliable operation. The system includes a 2 port 
RS232 serial interface and cables All S\tMX boards use gold plated bus connectors and are fully socketed. cmiX designs, manutadures, and tests in-bouse its complete 
line of products. All Boards are twice tested, and burned in electrically lo msure reliability and freedom Irom infant [tiortaiily of component parts All systems ate assembled 
and Itien retested as a system after being configured to your specific order. 

56KB 2MHZ 6809 SYSTEMS WITH GMXBUX/FLEX/OS-9 SOFTWARE SELECTABLE 

With #58 single density disk controller $2988.59 

With #68 DMA double density disk controller $3248.49 

to substllLJle Non-volatile CMOS RAM with battery back-up, add - 300.00 

forSOHzexpotlpowersupply models, add ^^-^^ 

Eitliet controller can be used with any combination ot 5" and'or 8" drives, up to 4 drives total, have data recovery 
circuits [data separators), and ire designed to fully meet the timing requirements of ttie controller I.C.s. 
5 %" DRIVES INSTALLED IN THE ABOVE with all necessary cables 

DOUBLE DENSITY 



40 track (4BTPI) single sideO 
W Irack (flBTPl) double sided 
80 Irack 196TPII single 
80 Irack (96TPII double 


Ffiimatttd 

199.680 
399.360 
404, 4 BO 

808,960 


UntormBtted 
250,000 
500,000 

500,000 
1. OOP. MO 


FDrmatt€d 
341.434 
718,848 
728.064 

l.456.1?8 


Unloimatled 
500.000 

I.DOO.OOO 

1.000,000 

2,000,000 


2 lor S70D.0D 
2 lor 900.01) 
2 lor 900.00 
2 tor 1300.00 


Chsn sliowt iotil 
capiclty In BylBS for 
7 dilvet. 



Contact GIti/tlX for price and availability of 8" floppy disk drives and cabinets: and 5" and fl" Winchester hard disk system. 

128KB 2Mhz 6809 DMA Systems for use with TSC's UNIFLEX or MICROWARES's OS-9 Level 2 

(Software and drives not included] $3798.39 

to substitute 12aKB CMOS BAM with battery back-up, add 600.00 

foreach additional 64KB NMOS STATIC RAfvl board, add 639.67 

for each additional 64KB CMOS STATIC RAIvt board, add ,n nn 

forSOHzBxport power supply, add ■^"■0'' 

NOTE; UNIFLEX can nal be used with 5" minifloppy drives. 

GIMIX has a wide variety ol RAM. BOM. Serial and Parallel I/O. Video. Graphics, and other SS50 bus cards that 

can be added now or In the lulure. Phone or write lor more complete irjformatlon and brochure. 

THE SUN NEVER SETS ON GIMIX USERS 

Gir^lX Systems are fojnd on every contirenl, except Antarctica. (Any users there? If so, please contact GIMIX so we can 
ctiange iriis.) A representative group of GIMIX users includes: Govaritmenl ResBsrch and SclBntitic Organizations in 
Australia, Canada, U.K , and in the U,S.: NASA, Oak Ridge, White Plains, Fetmilab, Argonre, Scripps. Sloan Kettering, 
Los Alamos National Labs. AURA. Univarsitlas: Carlelon, Waterloo. Royal Military College, in Canada: Trier in Germany; and 
In the U.S.; Stanford, SUNY, Harvard, UCSD. Mississippi, Georgia Tech. Industrial ussrs in Hong Kong, Malaysia, South 
Africa, Germany, Sweden, and in the U.S.; GTE, Beclon Dickinson, American Hoechst, Monsanto, Allied, Honeywell, Petkin 
Elmer, Johnson Controls, Associated Press, Aydin, l^ewklrk Electric, Revere Sugar. HI-G/AMS Controls, Chevron. CompulBr 
mainlrama and perlpltsral manulaclurars, IBM. OKI, Computet Peripherals Inc., Oume, Floating Point Systems. Softwara 
■housas; Microware. T S.C, Lucidata, Norpak. Talbot, Stylo Systems, AAA, HHH, Frank Hogg Labs, Epstein Associates, 
Softwest, Dynasoft, Research Resources U.K.. Microworks, Analog Systems, Computerized Business Systems. 

GIMIX Systems are chosen by the Pros 
because of quality, reliability and features. 
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The Company that delivers 
Quality Electronic products since 1975. 

1337 WEST 37th PLACE, CHICAGO, IL 60609 
(312) 927-5510 • TWX 910-221-4055 
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WORD PROCESSING POWER 

AND 

PRINT ...USING 

FOR YOUR APPLESOFT* PROGRAMS 

WITH THE 

FORMAT ROM 

Wm THIS POWERFUL ROM IN YOUR MOUNTAIN COMPUTER'S ROMPLUS' DR ANDROMEDA'S ROMBDARO* YOU WILL MAKE APPLESOFT' BASIC ONE STEP MORE 
POWERFUL THAN THE MOST ADVANCEO LANGUAGE AVAILABLE. AND - BECAUSE READ ONLY MEMORY NEVER FORGETS, THESE NEW COMMANDS BECOME A 
PERMANENT PART OF APPLESOFT'S' BASIC LANGUAGE. 

PRINT STATEMENT FORMATTING - Can you imagine formatting a letter with Applesoft pfint statements? Monumental to say the least - you 
would have to agree. Well - with the print statement formatting capabilities of the FORMAT ROM all you have to worry about is what 
you want your print statements to say and leave the rest to the FORMAT ROM. You tell the FORMAT ROM, right in your Applesoft 
program, how you want your letter, manuscript, etc. to look and best of all. formattingcommands can be changed at any point in your 
program with simple basic commands. FORMAT ROM gives you the same powerful commands as a dedicated word processor 
costing hundreds of dollars. Here are some of the powerful formatting instruclions which you will have with the formal rom: 
DERHE PRINTING MARGINS - OERNE THE LENGTH OF A PRINTED LINE - RIGHT HANO JUSTIRCATION - NO WORD WRAP AROUNO JUSTIFICATION - AUTOMATIC 
iNDENTINE OR OUTOEHTIHG OF PARAGRAPHS - SKIPPING OF LINES AFTER EACH PRINTED LINE (Double space/Triple space etc.] - PAUSE AFTER PRINTING SO 
MANY LINES - CENTER THE NEXT LINE OF TEXT (FORMAT ROM FIGURES IT OUT FOR YOU) ■ USER DEFINED CHARACTER SUBSTITUTION - FORMAT 
ROM will even put two spaces alter each period it finds, even if you torget and only put one space. 

PRIHT...USHG ■ Will format and tabulate the output of alpha/numerical data that has been predefined by you without having to go 
through the basic programming steps lo get the format requirements. Five modes of PRINT...USING are available: Alpha mode- will 
tabulateandright justify stringsof any length. Alpha/Numericmode- will tabulate any predefined string to the left of any predefined 
numerical data which can be formatted in any of the following output modes; Floating Point or Integer with any number of digits. 
Fixed output with any number of decimal places with round off capabilities of positive or negative numbers. Fixed output with 
commas inserted every third digit Irom the left of Ihe decimal point. All PRINT...USING routines will tabulate, right justify, line up all 
decimal points, pad the right and left side of a number with any predefined character and can be used within formulas or equations 
which will then format the mathematical result. Overflow messages or symbols, defined by you, can be printed if a number overflows 
the limits specified by you. PRINT...USING can be used in immediate or deferred and is compatible with ail Applesoft basic 
commands- 



R)RMAT ROM will support all printers, 80 column boards, lower case adapters, and 

requires 48K, FPin ROM, DOS 3,2 or 3.3, M.C's ROMPLUS' or Andromeda's ROMboard" 

OTHER ROMS AVAILABLEi All ROMS are compalible with MC's Romplua or Ardromefla's ROM Board. 

■ DUAL DOS RQPilS- Switch from one DOS |3. 2 or 3.3) to Itieoltiecwilhout booting , ,. - 

■ FP RENUMBER/MERGE ROM - Apple Computer's infamous renumber program 

- BASICS ROM - Will tool standard, special, and dedicated 1 3 sector disks 

-FPEDTTRDM -Global search, cliange, and remove (Works jointly with PLC) 

■ COMMAND ROM ■ Catalog Cpmmand Menu and DisK Map - - • 

■ DISK COPY/SPACE ROM - Duplicates 1 3 or 1 6 Sector Disks .... 

■FPUmJTYRDM-AuloUnaNumberlng.LISTCTRL, RESURRECT KILLED PROG, Alphabetize DISK CAT, Enpung DOS 

(CMcHmM.O.) VHaatMiiltrCicdAccipled 

Soft CTRL Systems, box 599, west milford, nj 07480 201-728-8750 



S49.95 

S54.SS 
S39.95 
S39.S5 
£39.95 
S39.95 
S39.9B 
$39.95 



■ BEGISTEBEO TRADEMARK 
ALL HRMWAne IS COPV RIGHTED 



MICRO - The 6502/6809 Journai 



No. 45 - February 1982 



NO. 45 



FEBRUARY 1982 



STAFF 

Editor/Publisher 
ROBERT M. TRIPP 

Associate Publisher 
MARY GRACE SMtTH 

Associate Editors 
MARY ANN CURTIS 
FORD CAVALLARI 

Special Projects Editor 
MARJORIE MORSE 

Production Coordinator 
PAULA M, KRAMER 

Typesetting 
EUMALYN H. BENTLEY 

Advertising Manager 
OATH I B1_AN0 

Circulation Manager 
CAROL A. STARK 

Dealer Orders 
LINDA HENSDILL 

MICRO Specialists 
APPLE; FORD CAVALLARI 
PET: LOHEN WRIGHT 
OSI: PAUL GEFFEN 

Comptroller 
DONNA M, TRIPP 

Bookkeeper 
KAY COLLINS 

Advertising 

Sales Representative 

KEVIN B, RUSHALKO 

603/547-2970 



DEPARTMENTS 

5 Editorial 

6 New Publications 

29 Microbes and Updates 

47 Short Subjects 

53 Data Sheet 

113 Bibliography 

117 Software Catalog 

123 It's All rsandO's 

124 Hardware Catalog 

127 Advertiser's Index 

128 Next Month in MICRO 




THE 6502/6809 JOURNAL 

MACHINE LANGUAGE AIDS 

q utilities for the Color Computer lboe. Garrett 

'^ Dump or disassemble 6809 or ASCII code anywhere in memory 

■iQ Formatting AIM Assembler Listings Christopher j. Fiynn 

' ^ This program uses a PL/65 approach 

HARDWARE 

o-| Superboard Expansion System d.w. Kammer 

*^ ' Double memory and increase capabilities of C1P and Superboard II 

OQ Using Atari's Countdown Timers Mike Dougherty 

*-'*^ Use timers with BASIC and Assembly Language programs 

A'i Speedy Routine for 01 P Joystick JohnKrout 

^^ Take "slow motion" out of your real-time games 

APPLE UTILITIES 

CO Credit Box Creator sandy Mossberg 

'-'^ Clever techniques to aid your programming 

cy RUNZMENU FrankShy/ka 

^ ' Eliminate task of rebooting DOS upon language card reset 

7-1 Sfiape Manipulate John R. Raines 

' ' Create, delete, add shapes from tables 

FORTH 

OO A FORTHword Loren Wright 

^^ A brief history and discussion of features of FORTH 

QC Using FORTH with the 6502 Raymond WeisUng 

^^ Three applications to utilize the power of FORTH 

QC Stepper Motor Control: A FORTH Approach Mark Bernstein 

*^*^ Command language in FORTH controls movement 

■i HQ LIFE in FORTH and BASIC Nicholas J. Vrtis 

I \J\J Compare and leain from two languages 

COLUMNS 

cc PET Vet Loren W. Wright 

*-'*^ High-level languages on SuperPET 

7Q From Here to Atari James Capparell 

' ^ A look at DOS file structure and the floppy disk system 

H H -1 The Single Life Brad Rinehart 

I ' ' A FORTH vendor is spotlighted 
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THE CHIEFTAIN™ S'A-INCH WINCHESTER 

HARD DISK COMPUTER 





SO ADVANCED IN SO MANY WAYS . . 

AND SO COST-EFFECTIVE . . 

IT OBSOLETES MOST OTHER SYSTEMS 

AVAILABLE TODAY AT ANY PRICE. 



• HARD DISK SYSTEM CAPACITV 

The Chieftain series includes 5W- and B-incli 
Winchesters that range from 4- to 60- 
megabyte capacity, and higlieras tecfmoiogy 
advances. M hard disli Cliieffains include 
64-k memory with two serial ports and 
DOS69D disk operating system. 

• UGHTnina access TinE 

Average access time for 5'/i-incli Winchesters 
is 70-msec, comparable to far more costly 
hard disk systems. That means data transfer 
ten-times faster than floppy disk systems. 



The Chieftain 
Computer Systems: 



Here are the Chieftain 6809-ba5ed 
hard disk computers that are destined 
to chatige data processing . . . 



• 2-nnz opcRATion 

All Chieftains operate at 2-MH?. regardless 
of disk storage type or operating system 
used. Compare this to other hard dish 
systems, no matter ftom much they cost! 

• DPIA DATA TRAnSEER 

DMA data transfer to-and-from tape and dish 
is provided for optimum speed. A special 
design technique eliminates the necessity 
of halting the processor to wait tor data 
whicti normally transfers at a ^ower speed, 
determined by the rotational velocity of 
the dish. 

• Runs UNDER DOS OR 05-9 

ho matter which Chieftain you select . . . 
5'A- or 8-inch floppy, or SVi- or 8-inch 



Winchester with tape or floppy back-up . . . 
they all run under DOS or OS-9 with 
no need to modify hardware or software. 

• UnBOUnDED ELEXIBIUTV 

You'll proijably never use it, but any Ciiieftain 
hard disk system can drive up to 20 other 
Winchesters, and four tape drives, with a 
single DMA interlace board! 

• SnOKE SIGnAL'S HERITAGE OE 
EXCELLENCE 

This new-generation computer is accompa- 
nied by the same Endumnce-Certified 
quality Dealers and end-users all over the 
world have come to expect from Smoke 
Signal. And support, software selection and 
extremely competitive pricing are very much 
a part of that enviable reputation. 



D 
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CHIEETAin 95 W4 

4-megabyte, SW-inch Winchester with 
a 350-k floppy disk drive (pictured). 

CHIEFTAirf 95XW4 

■^-megabyte, 5'/i-lnch Winchester witli 
a 750-k octo-density floppy disk drive, 

CHIEfTAin 98W15 

iS-megabyte, SW-inch Winchester with 
a 1-megabyte 8-inch floppy disk drive. 

CHIEFTAin 9W15T20 

15-megabyte, 5'/i-inch Winchester with 
a 20-me9abyte tape streamer. 



20-Megabyte Tape Streamer Back-Up Option 



Available with all Chieftain hard 
disk configurations. This 
cartridge tape capability 
provides full 20-niegabyte 
disk back-up in less than five 
minutes with just one 
command, or copy com- 
mand for individual file 
transfers. Transfers data 
tape-to- dish or disk-to- 
tape. Floppy back-up is 
also available in a variety 
of configurations, 





Write or cali today for detaiis (including the iow prices) 
on the Chieftain Series. . . and on dealership opportunities 



f 



SMOIZOmALSmDCASTINQ® 

31336 VIA COLINAS 
WESTLAKE VILLAGE, CA 91362 
TEL (213) 889-9340 
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The body of water m this spectacular 
sunset shot is none other than the Firth 
of Forth, a few miles from Edinburgh, 
Scotland. The name of the language 
FORTH, covered in this issue, has quite 
a different derivation. See PORTHword 
|p. 831. 

The cover scene was photographed 
with a Nikon F2 24 mm lens and Koda- 
chrome 64 film. 



Cover photo by Kevin Harkins 

Kevin Harkins Studio 
Lowell, Massachusetts 
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Dozens of magazines, newspapers, and 
newsletters repoit on and analyze the 
rapidly changing microcomputer field. 
Any publication intending to cover this 
industry effectively, has to change con- 
stantly too. 

MICRO is no exception. Loyal 
readers have noticed not only physical 
changes in MICRO over the last four 
years, but also changes in content. The 
journal's first issues were devoted to 
single board computers, and technical 
"how-to" articles — material much 
like what you would find in a user's 
manual. As the Apple, PET, and other 
6502 computers became popular, manu- 
facturers began supplying better docu- 
mentation. Consequently MICRO ex- 
tended the base of computers covered 
in the magazine, as well as the type of 
information provided. 

Now, as you know, MICRO offers 
its readers programming techniques 
and aids, enhancements, applications, 
and hardware pieces. And most recently 
MICRO expanded its coverage to in- 
clude 6809-based machines. We want 
all of OUT readers to get the most out of 
their computers. We intend to publish 
articles that will help you to do just 
that, no matter which system you own. 
We expect to continue to grow and 
change with the industry. 

To accomplish this expansion and 
development successfully, MICRO 
needs the support of its readers. We are 
currently developing a pool of 6809, 
Atari, VIC, and TRS-80 Color Com- 
puter authors. If you own, or have ac- 
cess, to any of these machines, and 
have developed applications or tech- 
niques, you may be a potential MICRO 
author. 

We're also encouraging the submis- 
sion of less system-specific articles: 
applications or techniques that can be 
applied to more than one machine, or 
general ideas beneficial to the users of 
many diiferent computers. 

To help broaden our coverage we 
have added two new columns: "From 
Here to Atari," and "The Single Life." 
We encourage anyone interested in 



writing a 6809 or TRS-80 Color Com- 
puter column to send us a proposal. In 
April we are planning a special feature 
on 6809-based systems. We would be 
more than happy to accept input — 
ideas, suggestions, questions, articles 
— from 6809 users. 

We've also added a new depart- 
ment, written strictly for your enter- 
tainment. We think you'll enjoy "It's 
All Ones and Zeros." On the serious 
side, another new item is the Technical 
Data Sheet. In this you'll find technical 
information in a concise, easy-to-read 
form. This month we offer a reference 
for the 6502 prograrruner. 

One of the interesting things about 
the computer field is that nobody 
knows everything and everybody knows 
something. Even with a few months of 
experience you may have discovered or 
developed something that would be use- 
ful and helpful to other users. In other 
words, everyone is a novice in some 
aspects; the most experienced user can 
benefit from a fresh perspective. 

Submitting an article to MICRO is 
easy. Many computerists think they 
"can't write," but it's conveying the 
information that is important. We have 
a good editorial department to help put 
the copy into final form. All we ask is 
that you double-space your typewritten 
copy, number and put your name on 
each page, and use clear, simple lan- 
guage. If you include a listing, we en- 
courage you to submit it on magnetic 
media, but in any case, make sure it is 
printed with clean, black ink. If you 
have any more questions about manu- 
script or listing format, write for a copy 
of our new Writer's Guide. 

Oiu aim is to provide a magazine 
full of useful and interesting informa- 
tion. We hope you'll help us to do that, 
both by letting us know what you need 
and want and by sharing your dis- 
coveries through articles, letters, col- 
umns, and short subjects entries. 
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New Publications 



Mike Rowe 
New Publications 
34 Chelmsford Street 
P-0. Box 6502 
Chelmsford, MA 01824 



Directories 

The Apple n Blue Book, WIDL Video 
{5245 W. Diveisey Ave., Chicago, IL 
60639), 1981, 10 5/8 x 8 3/8 inches, 
paperback. $19.95 

A directory of software, hardware, peri- 
pherals, and information for the Apple, 
The book lists reference manuals, pub- 
lications, newsletters, users groups, 
clubs, time sharing systems, and more. 

CONTENTS: Software Source Index. Utihty 
Softwaie Progiarns. Data Base Management 
Software Programs. Word Processing Soft- 
ware Programs. Graphics Software Pro- 
grams. Business Software Programs. Games 
ftJ Entertainment Software Ptograms. Edu- 
cation Softwaie Programs— Administration; 
Basic Skills; Language Arts; Foreign 
Language Programs; Elementary Mathe- 
matics; Advanced Mathematics; General 
Science; Biology; Chemistry; Physics; 
Computer Science; MusiC; Business; Social 
Studies; Misc. Program Collections Cover- 
ing Several Areas of StuiJy. Boards. 
Peripherals. Accessories. Music and Speech. 
Storage. Misc. Resources. Supplies. Power 
Supplies, Regulation, and Static Control. 
Books. Magazines and Publications. Special 
Apples. Networking. Time Shoring and 
Communications. User Groups. Authorized 
Apple Dealers. 



Intetnational Miciocomputci Sohware 
Directory, Imprmt Software (South 
Howes St., Ft. Collins, CO 80521], 
1981, 11 X %Vi inches, paperback. 
ISBN: 0-907352-030 $29.95 

A reference for microcomputer soft- 
ware for all applications and systems. 
The information is drawn from a data- 
base that is continually updated from 
all parts of the world through offices in 
Britain and America. The directory 
contains three sections: System Classi- 
fication, Subject Classification, and 
Software House Classification. 



CONTENTS: Acknowledgements. Pub- 
iisher's Preface. How to Use the Directory. 
Buyer's Guide. Notes to Software Houses 
and Dealers. Other Serivces of Imprint Soft- 
ware. Subject and Category Codes. System 
Codes (Machines, Microprocessors, and 
Operating Systems), and Abbreviations. 
Section I— System Classification. Section 
2— Subjei:! Classification. Section 3— Soft- 
ware House Classification. Appendix 
]— Table of Machines and Operating Sys- 
tems by Microprocessors, Appendix 2 — 
Glossary of Terms, Appendix 3— Software 
Houses — How to Update Your IMSD 
Listing. Index of Program Names. 

For Beginnets 

The Computers Are Coming by Irv 

Brechner. Irv Brechner Publisher [P.O. 
Box 453, Livingston, Nf 07039], 1981, 
92 pages, 6x9 inches, paperback. 

$4.95 

An introduction to computers written 
from a non-technical angle. 

CONTENTS: Tie Computers Ate Coming. 
Don't Be Afraid... It Won't Bite You. Try 
It... You'll Like It. Nobody's Perfect. 
Thanks For The Memories. Always Willing 
and Able... Never Says "No". Runs Circles 
Around A Speeding Bullet! Doesn't Do Win- 
dows. If You Can Write in English. What 
Goes In Is What Comes Out. Hardware... 
Software... Who Caresf And, On Tonight's 
Progam. Keeping Up With The Kids. Now 
It's Time for Fun and Games! Let's Go 
Down To The Comer Computer Store. No 
Mortgage Necessary! See You... On Line! 



VIC 

Understanding Your VIC by David 

Schultz, Total Information Services, 
Inc. (P,0, Box 921, Los Alamos, NM 
87544), 1981, 140 pages, 10 6/8 x 8 
3/8 inches, paperback. 

A tutorial presentation on how BASIC 
works on the VIC, Contains step-by- 
step exercises for self -instruction. 

CONTENTS: /nlroduc lion —Assumptions 
Made About the User; Exercises; Program- 
ming; VIC Keyboard and TV Display; Nota- 
tion; BASIC Overview. CBM BASIC Calcu- 
lator Mode— Using Swings in CBM BASIC; 
Numeric and Fractional Values; Conversion 
of Data; Balance Your Checkbook in Calcu- 
lator Mode; Reserved Words; Modes of Vari- 
ables and Constants. Inputting A Program— 
Blanks; Multiple Program Statements! 



Typing Mistakes; CBM BASIC Commands; 
'STOP' and CONT. Getting Information 
Out of Your Program— Output Formats — 
Numeric Data; Output Formats — Character 
Strings; Spacing. Getting Information Into 
Your Program— Design Goals; INPUT; 
READ, DATA, and RESTORE. Data Repre- 
sentation—Largest Numeric Value; 
Smallest Numeric Value; Integer Range; 
Memory Space Used; Number of Significant 
Digits; Rounding, Using the Cassette for 
Program Storage— SAVE a Program; VERIFY 
a Program; LOAD a Program. Branching- 
GOTO; ON X GOTO, The IF Slalement- 
THEN Form; GOTO Form; Multiple State- 
ment, Subroutines— GOSUB; RETURN; 
ON X GOSUB. Strings— Legal String 
Names; Subscripted String Variables; Max- 
imum String Length, Operations on 
Sfringj- Statements; Functions, Data 
Representation and Processing Pro- 
grams—Number System Conversion Pro- 
grams; Logical Operations Program, 
Subscripted Variables— legsl Subscripts; 
Dimensions, Program Design— Psuedo 
Code; Data Description; Typical BASIC Im- 
plementation, Coior-S ta I ement of the 
Problem; Refinement of the Solution; 
Psuedo Code of Get Choice; Psuedo Code of 
Set VIC; Miscellaneous Psuedo Code; Data 
Description; Writing the Program, 
Sound— The Problem; Restrictions; Sound 
Program Design; Refinement of the Solu- 
tion; Data Definition; Writing tbe Ptogram, 
Appendices— Appendix A; Program List- 
ings; Appendix B: Data Processing 
Background, 



Atari 

Atari BASIC, Learning By Using by 

Thomas E. Rowley, Ing. W, Hofacker 

GmbH (53 Redrock Lane, Pomona, CA 

91766), 1981, 73 pages, 8 x 5W inches, 

paperback, 

ISBN: 3-92-1682-86-X 

A supplementary resource for learning 
BASIC programming on the Atari, Con- 
tains short programs and learning exer- 
cises. Appropriate for hegitmers as well 
as advanced users. 

CONTENTS: fntroduction. Screen Draw- 
ings— Germaa Flag; Design; Circle; Star; 
Cover Page; Symbols in Graphics 2, Special 
Sounds- Sound Effects; Musical Tune; Up 
and Down Sound; Audible Joystick, Keys, 
Paddles and foysticks— Console Switches; 
Paddle Motion; joystick Drawing; TAB; Key 
Control; Pick a Key. Specialized Screen 
Routines- Player-Missile Graphics; Ger- 
man Font; Mixed Mode Screen; Characters 
in Graphics 4, 6, and 8, Graphics and Sound 
Apphcaiions—Uae\; Video Art; Guessing 
Game; Slot Machine; Linear X-Y Plot. 
PEEKS, POKES, and Special Stuff . Appendix 1 
—Description of Memory Addresses. Appen- 
dix 2— Player Missile Memory Map. Appen- 
dix 3— Building a Display List, Appendix 
4— Calculating Screen Position. 
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The PERCOM *M' Line 

Low-Cost Expansion for Your AIM, KIM or SYM Computer 

Complete Disk Storage Systems from $599.95 



The right storage capacity - Available in 1-, 2- and 3-drive 
systems, with either 40- or 80-track drives. 
Flippy storage - Rippy drives (optional) let you flip a diskette 
and store data and programs on the second recording surface. 
High Storage Capacity - Formatted, one-side storage capac- 
ity is 102 Kbytes (40-track drive), 205 Kbytes (SO-track drive). 
Proven Controller - The drive controller design is the same as 
the design used in the Percom 680X LFD mini-disk system. This 
system - introduced in 1977 - has given reliable service In thou- 
sands of applications, Tu/o versions are available: the MFD-C65 
for the AIIwl-65 expansion bus, and the MFD-C50 for the Sys- 
tem-50 (S5-50) bus, 

• Includes an explicit data separator circuit that's reliable 
even at the highest bit densities, 

• Provides for on-card firmware, 

• Includes a motor inactivity time-out circuit, 

• Capable of handling up to four drives, 

" Capable of reading both hard- and sofl-sectored diskettes, 
DOS included - The MFD disk-operating system works with 
the AIM monitor, editor, assembler, Basic and PL/65 programs, 
interface is direct, through user I/O and Fl, F2 keys. Diskette in- 
cludes DOS source code and library of 20 utility commands. 
Reliability assurance - Drives are burned-in 48 hours, under 
operating conditions, to flag and remove any units with latent 
defects. 

Full documentation - Comprehensive hardware and soft- 
ware manuals are included with each system. 




Expand Your Computer with Proven System-SO Modules 

The Percom M65/50 Interface Adapter connects your computer to 
Percom's System-50 (SS-50) motherboard, allowing you to ex- 
pand your AIM. KiM or SYM with proven System-50 modules. 
You can add disk storage, memory modules, even a video display 
system. The M65/50 provides buffer-amplification of address, data 
and control lines. On-card decode circuitry lets you allocate ad- 
dress space either to the computer or to the expansion mother- 
board. Price: only $89.95. including System-50 motherboard. 

System Requirements: AIM-65, KIM or SYM computer with ex- 
pansion bus and four Kbytes RAM (min). 




PERCDM DATA COMPANY, INC. 

■ 1 1 220 PflGEMILL PID DflLLftS. TX 75E43 

[2141 310-7081 

Toll-Free Order Number: 1-800-527-1222 

PRICES AN [) SPECIFICATIONS aOBJECTTO CHANGE WITHOUT MOTICE 

* 1981 PERCOM DATA COMPANY, Inc 

PERCOM. MFD-C50. MFD-CSaanrf M65/50 are Iradamarks o( Feicom DsU CompBnv. Inc. 

A]M-f^ I* a LrademO'li of Rochwell Inlernaltonal, [nc 
KlMWfllcademfltkolMOSTcfhncjDgyCoipoiaton 

SVM 15 a Ttademark ol Svnerfek. Inc 



Yes.. . I'd like to know more aboutPercom MFD drive systems. 
Rush me free literature. 

Send to 

PERCOM DATA COMPANY. Inc.. Depl. 65-M 

11220 Pagemill Rd. Dallas, TX 75243 
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ARTSCI explains why some 

word processing systems 

are better than others. 



Let's begin with an easy to understand explanation of what a word 
processor is and how ARTSCI has created a professional system. 

A word processing system is simply 
an easier, faster and less expensive way 
to type. With a modern word 
processor, documents arc entered on a 
video screen instead of paper. 

You can enter your first rough draft 
without concern about errors or 
spelling. Simply go back and insert 
letters, delete words and even move 
paragraphs with a few keystrokes. No 
document will ever have to be retyped. 

WORD PROCESSING 
AND THE APPLE II 



The APPLE 11 is the most 
expandable, inexpensive micro- 
computer available today. It can 
perform almost any task, including 
word processing. 

The standard APPLE II however, 
uses a 40 column video display. This 
display causes a serious word 
processing problem: How do you 
display a full sized SO column letter? 
Most word processing programs 
available today do not solve this 
problem. 




THE MAGIC WINDOW 

ARTSCI has developed the MAGIC 
WINDOW word processing system 
ihat incorporates the full power of a 
professional word processor and solves 
the APPLE'S display problem without 
expensive hardware. 

The first feature of a professional 
word processing system is the ability to 
enter and edit data in a fast and 
friendly manner. The MAGIC 
WINDOW operates just like a 
standard typewriter. The electronic 
paper moves lo the left across the 
video screen as you type. Almost any 
size document can be represented on 
the video screen. You can see the edges 



of the paper through this MAGIC 
WINDOW as you type. 

The rule is: What 
you see on the screen 
is what you'll get in 
print. However, 
if you print using 
proportional spacing, 
the result will look even 
better than the screen. 

This typewriter simulationTtogether 
with simple to use menu selection of 
functions and electronic editing 
abilities, creates Ihc finest word 
processor available on the standard 
APPLE n. 

MAGIC SPELL 

The second feature of an advanced 
word processor is the ability to find 
and correct mistakes. The most 
common mistakes in most documents 
is the misspelled word. 

ARTSCI's MAGIC SPELL program 
will take any document you can create 
and find spelling errors. Over 14,000 
commonly misspelled words are known 
10 MAGIC SPELL. You can also add 
new words to the vocabulary at any 
time, 

CUSTOM LETTERS 



I he third feature of a professional 
' word processing system is the ability 
to alter a document by replacing 
names and other related data from 
mailing lists. 



Form letters, invoices, and almost any 
document can be individualized by 
replacing names, addresses or any 
other personal data anywhere in the 
document using ARlSCrS BASIC 
MAILER. 

By using Ihe BA.SIC MAILER you 
can take any mailing list and sort 
through the list by different criteria 
and print personalized letters with a 
few simple keystrokes. 

A COMPLETE SYSTEM 

These Ihree programs, THE MAGIC 
WINDOW, MAGIC SPELL AND 
THE BASIC MAILER, together form 
the only complete and professional 
word processing system available on 




Apple is a uademark of Appk Cjuipuier [nc- 
the standard APPLE II computer 
system. 

ARTSCI TAKES THE 
WORK OUT OF 
WORD PROCESSING 




For a more thorough explanation of 
the ARTSCI word processing system 
send for our free booklet. 




Mail to: 

ARTSCI INC. 

10432 Burbank Blvd. 
North Hollywood. 
California 91601-9990 
(213) 985-2922 



Name 



Company 
Address _ 
City 



. State . 



-Zip. 



Phone 



ST PE Jill, CC BY CA 
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UTiliriES For tIie 
ColoR Computer 



This versatile routine allows 
Color Computer users to dump 
or disassemble the 6609 or 
ASCII code in any section of 
memory, including the BASIC or 
expansion ROMs. The hex and 
ASCII dump output is titled and 
paginated. The disassembly 
output produced contains 
standard 6809 mnemonics. For 
learning about Color BASIC, and 
for writing machine language 
routines, the Inspector is an 
invaluable programming tool. 



Leo E. Garrett 
P.O. Box 4946 
Brownsville, Texas 78520 



My main interests in microprocessors 
are hardware and assembly language 
programming. For the past two years I 
have been using the Motorola TVBUG. 
It is a single board machine with a 6847 
Color Video generator. One of the pro- 
grams I wrote for it was a 4K BASIC 
with line-drawing commands. 

Naturally, I was interested in the 
TRS-80C Color Computer, I recently 
managed to buy one with I6K PAM and 
Extended Color BASIC, The manuals, 
though comprehensive, contain little 
specific information on the interpreter 
or its subroutines. The machine lan- 
guage programmer was neglected again. 

The TRS-80C Color BASIC ROMs 
have many subroutines that would be 
very useful to the machine language 
programmer if their entry points were 
only known. My first real program on 
my new 80C was aimed at that prob- 
lem. The result was the Inspector. 

The Inspector will help you dig 
around in the BASIC ROMs produc- 
tively. Its two modes, hex dump and 
disassemble, produce titled listings on 
numbered pages. While it doesn't give 
you symbols and labels, it does give 
you access to the ROM routines. 



Hex Dump 

Listing la is a sample of the hex 
dump function. It has a "LONG" op- 
tion suited to 80 char/line printers and 
a "SHORT" option which fits eight 
bytes on one screen line for browsing. 
Beneath each hex byte it prints the 
ASCII equivalent. If you select the 
"CLEAR B7" option, it will ignore bit 
7 when printing the ASCII. This is nice 
for those cases where bit 7 is used as a 
flag or confusion factor. 

Hex dump makes it easy to pick out 
messages, command tables, and other 
data areas. If you're rurming the 



disassembler and get screwy output, 
the hex dump helps you make a little 
more sense of it. 



Disassembler 

The disassembler prints the 
selected number of lines in standard 
6809 mnemonics, with a couple of ex- 
ceptions. (See listing lb.| My primer 
doesn't print brackets, so parentheses 
were substituted. 

The 6809 doesn't have bit-specific 
instructions (SEC, CLI, etc.] for the 
condition code register. Instead,, the 



Listing 


1a 




















♦■NONSENSE PROGfi«M 












*MICROWRfiE SDS8BC 05SEMBLEB | 


flflfli 


flem 








ORG •3FCa 




wiez 


3FC(S 






TflRQET 


EGIU •F8D2 


EXTERNAL 


<»fl3 


srct) 


aE414D 




DflTfl 


FCC ■ NHM' 




IBE1B4 


3FC3 


C5e4 






FDB <C5B4 


B7 SET IN ■£' 


aoes 


3FC3 


3tiaCF8 




BEGIN 


LEfiX DfiTPi, PCR 




eUBE, 


3FC8 


ICSE 






HNDCC #SSE 


CLEAR C.H.E 


eev7 


3FCft 


3G7fl 






PSHU X. Y,S 




eiBB8 


3FCC 


ins3 






QRCC #83 


SET F, I. V.C 


neisa 


3FCE 


32BDB3BB 




LEfiS TflBBET, PCR | 


oeiB 


3FD2 


fiDF4 






JSR +. S*- 


INDRCT INDX 


EWtl 


3FDA 


3796 






PUCU D. PC, i 


D-P+B 


Bei2 


3FDB 


IBAFSaAB 




STY i-tiiZ, X* 




M13 


3FDfl 








END BEGIN 


TRANSFER 


**««]NSENSEiC:LR B7/LDNG OPTIONS*** 




3FCe 


&E A 


4D CS 


ea 


ZB ec F8 


IC SE 3E 7B lA 


S3 32 8D 




N B M E 


, 


. . 


. * 6 . . 


S 2 . 


3FI» 


Bs ee RD Ff^ 


37 


3e IB PF 


98 4B ai CI 42 


C2 43 C3 




g 


- 


7 


. . / 


. 3 A R B 


B C C 



Listing 1b 










4<**NaNSEN&e*** 






3FC:iB 


4E 






???? 




3FC1 


41 






i-ini 




3FC2 


4D 






TSTH 




3FC3 


C5 


04 




BITB 


#»B4 


3FC5 


3fl 


8C 


FS 


LEAK 


»3FCa, PCR 


3FCB 


IC 


SE 




PNDC 


*«9E CCLR C.H.E> 


3FCfl 


3E 


7B 




PSHU 


X. Y,8/U 


3FCC 


in 


S3 




ORCC 


#•53 (SET C.V, I,F> 


3FCE 


32 


GD 


BGBB 


LEAS 


•FBD2, PCR 


3FD2 


AD 


F4 




JSR 


(.S> 


3FD4 


37 


95 




PULU 


fl. B. X, PC 


3FDe 


IBAF 


98 


4a 


STV 


( B4. X) 


3F0fi 


41 






???? 




3FDB 


CI 


42 




CMPB 


*»*42 


3FDD 


C2 


43 




BBCB 


#*43 


3FDF 


C3 


2B33 


RDDD 


N*2e33 
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ORCC #rm and ANDC #nn instruc- 
tions are used to set or clear flags. The 
disassembler specifies SET or CLR and 
lists the flags. It does the same for the 
CWAI #nn opcode. 

For the indexed mode the dis- 
assembler prints the offset as a signed 
decimal number. This makes it a lot 
easier to see what is going where. 

For the relative opcodes, the 
TARGET address is printed in hex. 
Again, it is much easier to see where 
the pointer is, or the destination of a 
branch. No hex arithmetic is required! 

ROM Cartridges 

The Color Computer uses the FIRQ 
line to detect the presence of a ROM 
cartridge. I just put a sliver of tape over 
that pin when using Inspector with a 
cartridge. To use the ROM enter EXEC 
&HC0O0. (See figure 1.) 

Portability 

I used Extended BASIC'S hex 
operators extensively. If you are using a 
BASIC that doesn't have them, you 
must re- work those areas. Many 
methods for hex conversion have been 



TAPE OVER 
FOURTH POSITION 




BOTTOM OF CARTRIDGE 




Figure 1 



published. In many cases a simple sub- 
sitution of decimal equivalents will be 
adequate. The subroutines that input 
and output hex will require more work. 



The bare program, stripped of all 
REMs, takes 13K to ran. Observe the 
guidelines in the first lines of the 
listing. 



Results 

Table 1 shows some of the entry 
points and conditions I have un- 
covered. (There are many more.} 

I had trouble with my tape re- 
cordings. The leader was too short, so 
the computer would try to read before 
the motor came up to speed. POKE 
&H92,1 triples the delay and all tape 
read operations are now good. 



\i!E[L <^^ 



■ fa^V ic Ifarp Willi GO paweilul commands ^/|^^ 

> DduIiJu iIBji&iI» gJdiJnits. 13^0' nuipbei dnplav, Eound' 

> ^camplele p'HHjiankE including BredhokH S^m^fli^fli. AnI' UFO UAI« 
a PgUCHM >e'fiOrt l(hr DlD/NE||VmQ ROU^ ana SK qI matnary 

* VIC «Hrs<Dn lias toior axa fnriaj.t«fi ioijnd i-eg 3k ip^moij eip^ndm 

I CompiErienB'^^ p^gemanuar US ICANADA FOREIGN 

ViGiLiDrPEiJViCiv'goamt^oncaa^iiaidiHKaneaiinSiMj sas 140 

VIGIL User'a Manual (relund^iblG w'lh so'l^i'i; I'Ht" i'O t12 

ViGiL iPisiprei^f LiMjnq I&M2 fla^gmmgr Languagal i25 . 130 



PET/CBM 



Tiny basic coMPiuEn - pet 

A itvt tomoil^f ^^al ums youi BflSiC prooram into \»ii m at n I'.e coOe 

- Subsel uT PET 8ASICi:Dmpil0& Id G5I12 machina cnde Reg only flK mamDiv 

* haE lull flpQling oo-nl gapaQililiss aid luncim^E 

* CDrHjiilQi ii^lmg dyaLlaOla wUli ISK VBrsiai Lindudedl 
« Can loan cotnfulBd Tiacnme cnde an»4hEre m memaiy 

* Oiicaa^eiif l4ddl3 0iJFDrdii>.nii«j UK 5 Canada foreign 
TINV affile Ciampiler OLD/hEWJd HOVS/B0J2 wMi QK memory 12S UQ 
Tihjy Qtjic User s HBi%uai Irfllynd^ore wir\ ioJi^ft O'Oefi i b i ' 



PET i APPLE II USERS TiNY PaSCAL 



SliuClured Idn^uagE alleriBlP'e Id BfiSIC lor FEI ai APPLE » •nc\-ui}e5 
LLNE editor cre^lea. modi'iP^ And m£ini^irk^ source is^duao? 
COMPILE" COnmrll yaui ^cjurce (a an a.ccuiadle P mtOa fDrmar 
IhlERPRElER B.ecules cOmpiInd P i^ode FBalurES dUill m TRACE 
CASEOF, V-HILE-DQ, IFTKEN-ELSE ft£PeAT-UNllL. FOR-TO^CMjifthra PROC PUNC 
CfioriitS .ordJan has mare GHAPHICS, PLOT. POINT TE>1I INHEV, ABB SOP 
APPLE llha^hireE irmea COLOR, MGRaPHICS. MCOLOH HPLOf POt and TONE 

U S H CANADA FOREIGN 
TINY Paatfll PLUS GRAPHICS PET J2KNEW/4 0ROWS^a032rdi5kEHe 150 <56 

Tlhy PBHcal PLUS GRAPHICS PES 3?KNEliVia0HOMSJfl032^ca45eiieS55 MO 



TINV Patcal PLU5 GRflPHICSAPPLEIIflBRandDOB3 2/a3 150 

TiNV Pascal NOrJCRAPHlC^ PET lgK.'32K tliVilli l> ROM S h]i9 ke I le (36 

TIN V Pascal HON GHftPMICSPET i6K^32K NE^JJ ROMS casselLa l-D 

TINI PaEcal IJ^ar-^ Manual (relundaEilf wiinaH>MfareO'derj (10 

TIN/ P«cfll5MllrnerDriilcrli»liJ'y GRAPHICS. BfUon 126 
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PIPER-THE MUSICMACHINE 

Me re '5 llie sirrolesl way vet to cojnpo^a, conducl and Diay Jriusic on your VICiPET 
Coinplele iTiusic caj>aDiiity ^ D'ay an nola laluea lial ai-a edit your mu^ic, 
easily narLOie^ rspeais and reals WniEQD id la&i mathtnu language Indludea 
sample campaailiona and manual ^^IC version doe^ DQl require ad dlHonal me'norv 
PET .eisiaii requiiE^ E>iernal CBf speaher 

us t CANADA FOREIGN 
PiPERoiPETiViConca5sen&(addl3 00(ordifikeiie) 125 $30 

PIPER UaeiS Manual (relundablE ALih soliAare onJei) . t& %7 

PIPER 65D2 A^Esmbly Lifllina EZS 130 



PET MACHINE LANGUAGE GUIDE 
Now ID lift ninl'i pnnling Leam lie niQUen laLenls of iCU^ OLD, NEW OF 1,0 PQta 
P^JiQ&f* lAtih in<5 easy la faWav inanual Calaila 30 ol rtie PET's Puillm roulines 

U.S £ CANADA FOPEiGN 
PET MACHINE LAGU AGE GUIDE Tor OLD. NEW Di '0 POMS S9- i^^ 



□rdBro prflpBld In U 5 Dpllar-i. VISA, MC. ACCESS, BlC Prices include potlige. 
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DP REG must be set to zero before calling. 

SA30A Write char in 'A' to screen 

SA2BF Write 'A' to printer 

$A1B1 Wait for key; Char returned in 'A' 

$A928 Clear screen, home cursor; 'X', 'B' changed 

$A393 Get line into buffer @ $02DD; 'X' =$02DC; 

End byte -0 
SAC20 Move block of memory starting at top 

$41 =Destination top address 

$43 = Source top address 

$47 = Source bottom address 

$45 = Destination bottom address after move 

Table 1: TRS-80C subroutines discovered through the inspector 



5 ■^^♦TVPE IN ONLY THE ACTIVE LINES. PROGRfiM WILL NOT 

6 ' RUN WITH BLL REMRRKS LEFT IN' ' ' ' 

7 ■**«£NTER 'PCLEOfi 1' BEFORE ENTERING /LORD IMG 

PRODROM 

la CLEOR ISBHiGOBUB 7B 

15 ' *MENU/HefiDEn 

20 CLS: PRINT: PRINT" INSPECTOR 2.0" 

30 PRINT"LEO E. GORRETT, 9/4/Sl "; PRINT: PRINf'SELECT: ' 

40 PRINT" 1. DISfiSSEMBLER": PRINT" 2. HEXDUPIP" 

50 INPUT"WHICH"!R!ON R GOTO 800.2350 

Gfl GOTO 20 

B5 '**5E0fiCHING STRING TABLES IS EHSIER HND POSTER 

THON 
G6 ' SEBRCHING ' DOTfl' STHTEMENTS 
70 DIM CMC?). IH*(201. IH(20>.EXt'15). PP«i7) 
S0 DIM LT»aiJ,LTtll),BT»(15),BTa55,ClTSa5).fiTa5> 
30 DIM PF»(:5),PFc:5), P6(7). RGtc:3).CTSaS>.CTil5) 
95 '*CQNDITION CODE REG BITE 
100 FDR 1=0 TO 7:REQD CC«CI):NEXT I 



Listing Z: inspector Listing 
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Llsttng 2 (Continued) 

IBS 'wINHERENT OPCODE MNEMONICS HND CODES 

110 FDR 1=0 TO 2B!RERD IH«II ) . TM«! IH( I )=VF1Lf&H"*-TM«) SNEXT I 

115 ■wEXD/TFH REG CODES 

12B FOR 1=0 TO 15:REflD EX«a):NEXT I 

125 '*PSH/PLL RED FLOGS 

13a FOR I=e TO TsHEflD PP«II>:NEXT I 

135 ■*NON- IMMEDIATE fiCCUM/MEM CODES 

l^a FOR 1-a TO lliREflD LT«(l).TM*:LTa)=VBL("SH"+TH*)!NEXT I 

las '*RELflTIVE CODES 

150 FOR 1=0 TO 151RERD BT*( U. TM»:BTC I)=VRLi:"4H"+TMt) INEXT I 

155 '*nCC -fl' /HEBS!OPCODES «ea-»BF 

160 FOR I=B TO JSiREflD HT*C I) . TM*!OTl I )-VHLi;"iH"+TM») sNEXT I 

165 '*nCC 'B' /REGSSDPCODES ) =*C0 

17B FOR I-B TO 15!RE0D CT«CI ) , TMUCTf I )=VfiL( "SH'^+TM*) sNEXT I 

175 ' *OPCODES/MNEMS FDR PREFIX »1B!»H NO TABLE 

ISB FOR 1=0 TO SSRERD PF«CI ) . TM»!PF(I)"VOL< "fcH"+Thl*) :NEXT I 

185 '1-REG CODES FOR INDEXED POST-BYTE 

190 FOR 1=0 TO 3JfiEflD HGSOiNEKT I 

200 RETURN 

205 •*INPUT R HEX NMBRiNR SHOWS STfiTUSiDB HAS TWO-BYTE HEX 

210 NR»0:INPUT KY«:IF KY»="" THEN RETURN 

220 TV»=LEFT#i:KY«. 1) 

230 IF TY«>="0"flND TY«<-"9" THEN NR=l!GDTD 2E0 

2itB IF TY»)=*'fl" AND TY»< = "F" THEN NR=liGDTO 250 

250 NR=-1 

2E0 IF NR— 1 THEN RETURN ELSE KY»="0000"+KYS 

270 DB"VflLC"aH"+RIDHT«<:KV»t 4))! RETURN 

275 '"PUT TWO BYTE HEX IN LNtJSUPPLlE LDQ ZEROES 

280 IF DB<'i0S6 THEN LN«=LN»+"0" 

290 IF DB<25S THEN LN»=LN»+"B" 

3BB IF DB<1B THEN LN«=LN»*"0" 

310 LN»=LN«+HEX»rDB):HETURN 

315 '*ONE-BYTE HEX 

320 IF SB<16 THEN LN»-LN«+"0" 

330 LN«"LN«+HEX«CSB)! RETURN 

335 ■*ii HXtSPC 

340 GDSUe 280!LN»-LN»+ RETURN 

345 ' *2 HX+SPC 

330 GOSUB 320tLN«-LN«+" "= RETURN 

35= ' •PRT DISfiSSEMBLED LINEiLN*=NMBRS!MN«=MNEMDNICiOP«=OPND 

360 EX'-0iSB=OC!DOSUB 350iIF ey=l THEN ii00 

3B5 '*OPCD FIRSTt CHK MULTIBYTE INDEXED! IX IS INDX FLAG 

370 IF IXO0 OND BY>2 THEN 500 

380 IF BY=2 THEN SB=PEEK(PC+1> IGGSUB 320 

390 IF BY=3 THEN DB=(25B*PEEK(PC+1) )+PEEK(PC+2) SGDSUB 2S0 

400 PHINTLN«iTflBC19)MN«iTfiB(25)0P*iNL=NL-l 

iiB5 '*CHK FOR ABORT AFTER EACH LINE 

410 IF INKEY«="X" THEN EX=1 

42B PC=PC+BYJIF LS=0 THEN RETURN 

425 ■*LS=' PRINTER DN' FLRG 

43B PRINT«-2.LN»iTflBl20)MN»!TABC26)DP«!LC=LC-l 

44B IF INKEY»-"X" THEN EX=I 

450 IF LCOB THEN RETURN 

455 '*LC=LINE COUNTER! SPfffiE RND PRINT HERDER 

4E0 PRINT#-2.CHR«<10)iPHINT#-2,TflB(32)PGiFOR 1=1 TO S 

470 PRINT#-2.CHR«i:i0)iNEXT I 

480 PRINT 0-2, "***"5HD«f "•**■" 

490 PRINTtt-2.CHR»CI0)!PD=PG-HiLC-5B I RETURN 

500 SB-PEEKfPC+l)!C03UB 330 

510 IF BY-3 THEN SB=PEEKi PC+2) iGOSUB 320 

320 IF BY=4 THEN DB=(25E*PEEK(H;*2) )+PEEK<PC+3) SQOSUB 280 

530 GOTO 400 

535 '*SET PBfx) ACCORDING TO BITS IN BT! MSB=PBC7) 

540 FDR 1=7 TO STEP -1 t IF BT>255 THEN BT-BT-2SG 

550 PB<I)=INT<BT/12B)sBT=BT«-2!NEXT IsRETURN 

555 '*TW0 BYTE GFFSETjSIGNED 

560 BT=<256*PEEK(:PC+B¥-2))+PEEKCPC+BY-1)iG0T0 S8B 

565 '+ONE BYTE OFFSET (SIGNED 

570 BT-PEEK(PC+BY-l)!GaTO B10 

580 □S-BTiSN=B!lF BTHH7FFF THEN SN=HOS-BT-)iHBa00 

590 IF SNOB THEN OS=DS-4HBOB0 

G00 RETURN 

B10 OS=BT!SN-OiIF BT> 127 THEN SN-1 iOS-OS-128 

620 IF SNOB THEN Q5-0S-12B 

630 RETURN 

635 '*5 BIT DFFSETjSIONED 

G40 OS=BTs5N''0tIF BT> 15 THEN SN= 1 1 OS-OS- J B 

S5B IF SNO0 THEN 06=08-16 

680 RETURN 

685 '*COMPUTE TARGET! MAKE IT OPERAND 

£70 BT=PC+BY*0S!0P«="»"1G0T0 889 

675 '*MRKE TWO BYTE OPERAND (EXTENDED) 

6BB BT=C255*PEEK<PC+BV-2>)*PEEKtPC+BY-l)i0P«-0P»+"«" 

589 IF BT<0 THEN BT-BT+S55361 ' MAKE POSITIVE HEX 

59B IF BT<4098 THEN DP«-OP»+"B" 



EXPAND YOUR 
APPLE'S CORE 




700 IF BT<2S6 THEN DP«-OP«+"B" 



(Continued^ 



Advanced Operating Systems 

presents this unique, disk-based 

programming-aids package 

written for use on *Appie II 

microcomputers with 48K of 

RAM, The APPLE-AIDS package 

contains 12 programs written in 

Applesoft and machine language 

compatible with DOS 3.3 and 

DOS 3.2. 

APPLE-AIDS contains the 
following Apple" utilities: 

CREATE EXEC FILES! BASE CONVERT - 



DISK COPY 
DISK EDITOR 



KILL DOS 
TEXT DUMP 



EDITEXECFILESl 

FORMAT BLANK DISK ■ 

IMPROVED DIRECTORY ■ 

SECTOR LISTING* 
UNDELETE FILES! 



APPLE-AIDS allows review and 

manipulation of files, byte by 

byte or string by string. DOS can 

be removed from any disk, 

freeing up 8,000 bytes of storage 

space. The package also provides 

you with the useful ability to 

re-activate recently "deleted" 

files which were "killed" by 

mistake. 

Also included is a 50-plus-page 

user's operations manual 

detailing all of the instructions 

and capabilities of this powerful 

utilities package. It can be used 

with an Apple II with Applesoft 

or an Apple II Plus. 

Let Advanced Operating Systems 

show you 12 ways to grow a 

better Apple' I 

Now available at your local 
software dealer, or call {800) 
348-8558 to order. (Indiana 
residents, call (219) 879-4693.) 
MasterCard and VISA accepted- 
Ad Van Ced 

Operating 
Systems 

450 St. John Road 
Michigan City, IN 46360 

"Apple II and Apple II Plus are registered 
trademarlts ol Apple Computer, Inc 
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Lilting 2 (Continuedl 

71B IF BTdG THEN DP*=DP«+"B" 

72B DP«-DP»+HEXB(BT)!RErUHN 

738 OP«-DP»+"»"iBT=PEEK<:PC+BY-l)iDDTO 71B 

733 ■*PRTR INIT PRRRMS FOR OKIDnTB-BBi 

SETS 64 COLMN. 10 CPl 
740 DPEN"0". -2. CHR«< 13) : PRINT*- 2, CHRSC&HIB) ? "B" 
750 LC=56!PG=0:LS=1 

750 PRINTMNPUT " NftME" iH0«:GOSLJB 450 
770 CLS:PRINT'"X' ftBDRTS LISTING" 
7BB PRINT"SH1FT ' S- SUSPENDS LISTING" 

iPRINT"enier fiESUNES" 
730 RETURN 

793 ■ **DISRSSEMBLER MENUI'X' RETURNS TO PREVIOUS STEP 
796 ' ' Z' RETURNS TO STftRT 
SBB CLS! PRINT :PRINT"DISRSSEMBLER":EX-0 
aia LS-0:INPUT "printed listing i;V/N)";Ky» 
82B IF KY»="Y" THEN GOSUB 74a:C0TO S50 
S30 IF KV«-"X" THEN E500 
B4B IF KYS="Z" THEN 20 

asa E)(-B!PRINTiPRINT"BEGIN ADDRESS: " i iG0SUB21B 

asa IF NRO 1 THEN S30 

670 PC-DB 

BBB PRINT>PRiNT"NMBR LINES" i i INPUT KY» 

HF KY*="X" THEN EBB 
B9B IF KY»-"Z" THEN 20 
9BB NL-VflL<KV«) 
31B IF NL=a THEN NL=1 
920 GOTO 970 
93a ' **ERRPRT 

940 MN«="??77"iBy-l!GD5UB SEBSGOTD 970 
950 ' **NORMPRT 
9G0 GQSUB 360!'**FfiLL THRU 
965 '**flCTUflL DISfiSSEMBLE RTN 
970 IF NL-B THEN 380 ELSE IX-0!PF=0i RF=aiBY=B 

iRN=B!BT=a 
975 ■**SET VflRIRBLESi CHECK FDR RBOBTED LISTING 
3Ba IF EX-1 THEN B50 

990 LN«- MN«= 0P«-"" 

995 •**PRT PGM CNTRJ GET OPCODE 
1000 DB=PC:QOSUB 340:00= PEEK (PC) 



1005 '*SEE IF PREFIXED FIRST 
laiB IFOC-SHIB OB 00=),H11 THEN 1350 
1020 LN«-LN«+" ■' 

1025 ••SWI GETS SPECIAL HRNDLINQ 
1030 IF □C-I,H3F THEN I32B 

1B35 '"-LBSR/LBRR LIKEWISE! ' BSR' HRS AMBIGUOUS OPCD 
lB4a IF 0C=),H1S OR 0C=SH17 THEN 1510 
1B50 IF 0C-4HED THEN MN«-"BSR" sBOTO 1570 
1B55 '"ROUTE BRANCHES 

106B IF QO&HIF fINDOC (4H3B THEN 1530 
106S '*R0UTE ACCUM/REDSlIMDT) 
1B7B IF DO 127 THEN 173B 
1075 '*CHECK INHERENTS 

1060 F=0jFOR I=a TO 20iIF OCOIHd) THEN 1100 
1090 F=11MN»-IH«(I)1GOTO 1110 
IIBB NEXT I 

11B5 ■♦NOT FNDIGD CHK LOTRBLi IF FOUND. 
CHK EXCEPTIONS 

lllB IF F'0 THEN IBIB 

1113 ■*WEED LEAK TO INDEX MODE 

1120 IF 0C>=*H3B HND QC<=&H33 THEN 1G70 

1125 ■+WEED PSH/PUL 

1130 IF 0C)»H33 RND 0C<8H3B THEN 1190 

1135 '*WEED CDND CODE OPS 

1I4B IF 0C-8H3C OR DD-&Hlfl OR DC=I,H1C THEN 123B 

1145 '*TFR/EXG OPS 

1158 IF 0C=*H1E OR 0C=8H1F THEN 1178 

1155 'WPRT ONE-BYTE INHERENT 

115B BY=1IG0T0 960 

1165 '•t'TFR/EXGi LFT NIBL='FROM'i RT NIBL='TO' 

I EX»(k)=REG 
1170 BT-PEEK(PC*1)!LN-INT(BT/16)!RN-BT-<LN*1E) 
IISB OP»»EX*(LN)+", "*EX«i:RN)!BY=2JGDT0 380 
UBS '*PSH/PUL-PP«=REGt PBCk)=BIT IN POSTBYTE 
1190 BT=PEeK<PC+l)!GOSUB 540JFGR 1=8 TO 7 
1200 IF PB<I)=B THEN )21B ELSE OP*=OPI+PP«l I > + ", " 
121B NEXT IiHID»(OP»,LEN(DP«>, !)=■■ ■■ 
122B BY=2!0DT0 960 

1225 '*S£T/CLR BITS IN COND CODE REG 
!CC» HAS FLAG NRHES 
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1225 '"LINE 730 SET PB(k) 

123B BT=PEEK<PC+J)1G0SUB 540 tQP«="#" 'BY-2I00BUB 738 

12iiB IF DC-l-Hlfl THEN I29B 

12(iS '*fiNDC,CWOI CLEfiR FLOGS 

t25(B OP«=OP«+" i:CLR "iPOR I=B TO 7 

1250 IF PB<:i>-B THEN OP«=0P»+CC«{ I) + ", " 

I27B NEXT I 

12BB HID«COP»,LENtDP«). I)-''V'iO0TO 380 

1285 '*DRCC SETS FLfiGS 

1290 nP«=OP»*" CSET "!FDR 1=0 TO 7 

1300 IF PBCI) = 1 THEN OP«=0P»+CC»CI) + "i " 

1310 NEXT IsGOTO 12B0 

1315 '-UN* SET FOR PROPER '8HI' BY PREFIX 

1320 IF PF-B THEN MN«-"Sm " SGDTO 1160 

1330 IF PF=»H1B THEN MN»-"3WI2" IGDTD 1 lEB 

1340 IF PF=»H11 THEN MN«-"BU13" IQOTD 1160 

1345 '*+PREFIX OPSlBET PF. GET OPCODE 

1330 PF-DCISB=OC!QOSUB 3201 PC-PC+1 'DC-PEEK<PC) 

1355 '*CHK SWI 

136B IF 0C-»H3F THEN 132B 

1365 ■•CHK HEG/nCCUn OPCDB 

1370 IF 0C> 127 THEN 1400 

1375 ' *CHK LONG REL BRRNCH 

1380 IF OC)ftH20 «ND OC <8H3B THEN 1530 

1385 '*lNyfiLID OPCD 

1390 GOTO 940 

1395 "wSET OP TO SEfiRCH PF TABLE 

1356 ■ USE DUMMY IMMEDIATE OPCODE 

140B SC-BSLN-INT(0C/1B)1RN-0C-<1B*LN)1SC-1H9B+HN 
1405 'i-MEED PAGE 2 CODES 
141B IF PF"*H11 THEN 14BB 

1415 '"-OLTER DLIMMV IF NEEDED 
I42B IF LN)11 THEN SC=SC+&H4B 
1425 '"ONLY B PAGE 1 CODES 
1430 FOR 1=0 TO 5!lF SCOPFd) 
THEN 147B ELSE MN»=PF«a) 
1440 IF LN) 11 THEN LN=LN-4 
1445 '*WEED 'STORE IMMEDIRTE' 
1450 IF GC=8H9F OR OC=),HSF THEN 340 
14S5 '*PROCeSS RDDRESS MODE 
14EB GOTO 1780 



1470 NEXT HGOTO 940 

1475 ' PAGE 2 0PCD5 

1480 IF RN-3 THEN MN«-"CMPU" iSC=l 

1490 IF RN-12 THEN MN»-"CMPS" iSC=l 

1500 IF BC-1 THEN 1440 ELSE 940 

1505 '*RELflTIVe BRANCHES 

1B10 B¥=3IIF aC-SH17 THEN riN*="LBSH "iGOTO 1600 

152B MN*""LBRO "JGOTO 1600 

153B F-BiFOR 1=0 TO 15 

1540 IF BTtDOOC THEN 1560 ELSE l1N«=MN»*BT»a)*" " 

1550 F-liGOTO 1570 

15S0 NEXT I 

1565 '"INSERT ' L' IF LGNO BRANCH 

1570 BY-2!lF PF=SH10 THEN BY=3!GGT0 1590 

1560 GOSUB 570:GQSUB e7B:G0TQ 9E0 

1590 MN«="L"+MN* 

1S0B GOSUB 56B1 GOSUB 670! GOT 0950 

1605 ' ••KLOTBL-OTHES OPCODES <«BBiUSES HT NIBL AS KEY 

1B06 ' LFT NIBL FOR ADDRESS HODE 

1610 LN-INTC0C/16)iHN=0C-CLN*ie> 

1620 IF 0C=4H4E OR 0C"&H5E THEN 94B 

1630 F=0iFDR I=B TO 11:IF HNOLTH) THEN 1650 

1640 MN«=LT«(I)!F=1:G0T0 165B 

IBSfl NEXT IS IF F=B THEN 940 

1655 '*LFT NIBL=4/5 FOR INHERENT 

1660 IF LN-it THEN MN«=«N«*"A" :BY=1 SGGTO 968 

IB7B IF L(it"5 THEN MN«=MN»+"B" :BY=1 sGOTO 9BB 

lESB IF LNOO THEN 1700 

1585 '*LN=0 FOR DIRECT 

1690 BV=2;0GSUB 730IG0TD 380 

1780 IF LN()7 THEN 1870 

I70S •*LN=7 FDR EXTENDED! LN"6 FOR INDEXED 

1718 BY-3iGQSUB 68OtGOTO960 

1720 GOTO 940 

1725 '"ACCUM/REGSi NO PREFIX. LN FOR A/B TEST 

RND MODE 

1726 ' RN USED FOR KEY 

1730 LN"INT(DC/16):RN=0C-CLN*1B> 

1740 IF LNfll THEN 1840 

1745 ' *■ 0' ACCOM 

1750 FOR 1=0 TG I5sIF RNOfiTd) THEN 1770 

1760 MN*=AT«a):GOTO 178B 

1770 NEXT I ! GOTO 940 



IContinuedl 



Your i^pple too slow ? 
Not anymore • • • 



Now you too con write 660*? programs for your Apple II rhat ore 
DOS 3.0 compoiible. Bur you don'r hove to stop there, you con 
oiso progrom your Apple Il's6502 and ihe 6809 of THEMILL to run 
SIMULTANEOUSLY 

THE ASSEMBLER DEVELOPMENT KIT, including THE MILL, is Q full 
feature ossembler, designed to use the text editing system of your 
choice. The system will olso boost your computer progromming 
productivity, since the 6809 is today's eosy to leorn ond progrom 
computer. Tolse odvontoge of rhe 8-bit 6502 and the 16-bif 
abilities of rhe 6809 running at tfie same lime, create your own 
MULTIPIXOCE55ING ENVIRONMENT on rhe Apple II. 

Pur THE MILL jnio your Apple II and get power, performonce ond 
price matched by no other personol computer. 5TELLATION TWO 
offers o full 1 yeor warranty ond a 60 doy money bocit guorontee, 
if you're nor completely satisfied with the power of THE MILL. 

Shop around, then compote the service, quoiiry. price and 
power of THEMILL. Tahe rhisad ro your local Apple Deoler and see 
The endless possibilities of odding THE MILL to your Apple II. 





THE MILL transforms ttie 6-bit Apple II 
into o computet thot octs like a 
16-bit machine. THEMILLhos 
unique hordwore features ihat 
permit rlie 6809 to tun or full 
speed ( 1 megohertz) ond 
allow The 6502 to run ot 
20%ofit5normol 
speed — 
ATTHE SAME TIME! 



Find out about 
THE MILi ond get 
involved with the 
hoTiesT item on the 
personal compuTer 

mo riser today. 
No existing personal computer 
con give you the power, 
performanceand price of THEMILLS 

6809-6502 combirration. 



P.O. DOX23d2 -f^fl 

SANTA BAI^GAI^A, CA. 93120 

(805)966-1140 



Apple II 
IS o trodemorls 
for Apple Computer, Inc. 



OSI 



TRS-80 



COLOR-80 



OSI 



GALAXIAN - 4K - One of the fastest and finest 
arcade games ever written for the OSI. this one 
features rows of hard-hitting evasive dogfightlng 
aliens thirsty for vour blood. For those who 
loved land tired of) Alien Invaders. Specify 
system— A bargain at $9.95 OSI 



LABYRINTH - 8K - This has a display back- 
ground simiJar to MINOS as the action takes 
place in a realistic rrsaze seen from ground level. 
This is. however, a real time monster hunt as you 
track down and shoot mobile monsters on foot. 
Checking out and testing this one was the most 
fun I've had in years! - $13,95. OSI 



THE AARDVARK JOURNAL 
FOR OSI USERS - This is a bi-montlily 
tutorial journal running only articles about OSI 
systems. Every issue -contains programs custom- 
ized for OSlj tutorials on how to use and modify 
the system, and reviews of OSI related products. 
In the last two years vje have run articles like 
these I 

1) A tutorial on Machine Code for BASIC 
programmers. 

2) Complete iislings of two word processors 
for BASIC IN ROM machines. 

3} Moving the Directory off track 12. 
4J Listings for 30 game programs for the OSI, 
51 How to write high speed BASIC - and 
lots more — 

Vol. 1 ll9aOI6backissues-S9,00 

Vol, 2 (1981) 4 back issues and subscription for 

2 additional issues - $9.00. 

ADVENTURES!!! 

For OSI, TRS-80, and COLOR-80, These 
Adventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures that 
take 30-50 hours to pfay. (Adventures are inter- 
active fantasies. It's like reading a book except 
that you are the main character as you give the 
computer commands like "Look in the Coffin" 
and "Light the torch".! 

Adventures require SK on an OSI and 16K on 
COLOR-80 and TRS-80. They sell for $14.95 
each. 

ESCAPE FROM MARS (by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANT, Vou'll have to explore a Martian city 
and deal with possibly hostile aliens to survive 
this one, A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE, It 
is a treasure hunt in a pyramid full of problems. 
Exciting and tough! 

TREK ADVENTURE (by Boh Retelle] 
This one lakes place aboard a familiar starship. 
The crew has left for good reasons - but they for- 
got to take you, and now you are in deep trouble. 

DEATH SHIP (by Rodger Olsen 1 
Our first and original ADVENTtJRE, this one 
takes place aboard a cruise ship - but it ain't the 
Love Boat. 

VAMPIRE CASTLE (by Mike Bassman) 
This IS a contest between you and old Orac - 
and it's getting a little dark outside. $14,95 Bach. 



OSI NEW-NEW-MEW OSI 

TINY COMPILER 

The easy way to speed in your programs. The 
tiny compiler lets you write and debug your pro- 
gram in Basic and than automatically compiles a 
Machine Code version that runs from 50-150 
times faster. The tiny compiler generates relocat- 
able, native, transportable machine code thst can 
be run on any 6502 system. 

It does have some limitations, )t is memory 
hungry — 8K is the minimum si^ed system that 
can run the Compiler. It also handles only a 
limited subset of Basic — about 20 keywords in- 
cluding FOR. NEXT, IF THEN, GOSUB. GOTO 
RETURN. END, STOP, USRIX), PEEK. POKE, 
-,=,*./. ,/,> , Variable names A-Z, and Integer 
Numbers frdrii 0-64<. 

TINY COMPILER is written in Basic. It can 
be modified and augmented by the user. It comes 
with a 20 page manual. 
TIftJY COMPILER - $19.95 on tape or disk OSI 

SUPEROISK II 

This disk contains a new BEXEC" that boots 
up with a numbered directory and which allows 
creation, deletion and renaming of files without 
calling other programs. It also contains a slight 
modification to BASIC to allow 14 character 
file names. 

The disk contains a disk manager that con- 
tains a disk packer, a hex/dec calculator and 
severe! other utilities. 

't also has a full screen editor (in machine 
code on C2P/C4)) that makes corrections a snap. 
We'll also toss in renumbering and program 
search programs — and sell the whole thing for — 
SUPERDISK II $29.95 (5'/."l OSI 

BARE BOARDS FOR OSI C1P 
MEMORY BOARDS! II - for the CIP - end they 
contain parallel ports! 

Aardvarks new memory board supports 8K 
of 21 14's and has provision for a PIA to give a 
parallel ports! I( sells as a bare board for $29,95, 
When assembled, the board plugs into the expan- 
sion connector on the 600 board. Available now! 

PROM BURNER FOR THE C1P - Burns single 
supply 2716's. Bare board - $24.95. 

MOTHER BOARD - Expand your expansion 
connector from one to five connectors or use it 
to adapt our C1P boards to your C4/BP. - $14.95. 

16K RAM BOARD FOR C1P - This one does 
not have a parallel port, but it does support 16K 
of 21 14's. Bare Board $39.95. 




WORD PROCESSING THE EASY WAY- 
WITHMAXI-PROS 

This ;s a line-oriented word Processor de- 
signed for the office that doesn't want to send 
Bvei^ new girl out for training in how to type a 
leltar. 

It has automatic right and left margin ]usti- 
fication and lets you vary the width end margins 
during printing. It has automatic pagination and 
automatic page numbering. It will print any text 
single, double or triple spaced and has text cen- 
tering commands. It will make any number of 
multiple copies or chain files together to print an 
entire disk of data at one time. 

MAXI-PROS has both global and line edit 
capability and the polled keyboard versions 
contain a corrected keyboard routine that make 
the OSI keyboard decode as a standard type- 
writer keyboard, 

MAXI-PROS also has sophisticated file 
capabibilities. It can access a file for names and 
addresses, stop for Inputs, and print form letters. 
It has file merging capabilities so that it can store 
and combine paragraphs and pages in any order. 

Best of all, it js in BASIC (0S65D 51/4" or 
S" disk! so that it can be easily adapted to any 
printer or printing job and so that it can be sold 
for a measly price, 
MAXI-PROS - $39,95, Specify 5% or 8" disk, 

SUPPORT ROMS FOR BASIC IN ROM MA- 
CHINES - C1S/C2S, This ROM adds line edit 
functions, software selectable scroll windows. 
bell support, choice of OSI or standard keyboard 
routines, two callable screen clears, and software 
support for 32-64 characters per line video. 
Has one character command to switch model 
2 C1P from 24 to 48 character line. When in- 
stalled In C2 or C4 (C2S) requires installation 
of additional chip, CIP requires only a jumper 
change. - $39.95 

C1E/C2E similar to above but with extended 
machine code monitor, - $59.95 OSI 

ARCADE GAMES FOR OSI.COLOR^O AND 
TRS^a (8K OSI. 16K TRS-80 AND COLOR-80) 

TIMETREK - A REAL TIME, REAL GRAPHICS 
STARTRECK, See your torpedoes hit and watch 
your instruments work in real lime. No more un- 
realistic scrolling displaysl $14,95. 

STARFIGHTER ■ This one man space war game 
pits you against spacecruisers, battlewagons, and 
one man fighters, you have the view from your 
cockpit window, a real time working instrument 
panel, and your wits. Another real time goody 
$9.95 

BATTLEFLEET - This grown up version of Bat- 
tleship is the toughest thinking game available on 
OSI or BO computers. There is no luck involved 
as you seek out the computers hidden fleet. A 
topographical toughie, $9,95 

QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. Quest is 
played on a computer generated mape of Alesia, 
Your job is to gather men and supplies by comb- 
bat, bargaining, exploration of ruins and templet 
and outright banditry. When your force is strong 
enough, you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable in 2 to 
5 hours, this one is different every time, 
I6K COLOR-aO OR TRS-80 ONLY, $14.95 




Please specify system on all orders 

This is only a partial listing of what wa have to offer. Wa offer over 120 gam"*. ROMS, and data ihssB for OSI syitemi 
and many games and utilitias far COLOR-80 and TRS-SO, Send $1,00 for our catalog. 



OSI 



AARDVARK TECHNICAL SERVfCES, LTD. 

2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 



COLOR-80 
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Listing 2 (Continued) 

1775 '*IMMEDIflTE MODE. 2 OR 3 BVTES? 
17S0 IF LN=8 THEN OP*-"lt"+0P« ELSE 181B 
179B IF RN=3 DR flN=12 OR RN=l'i THEN BV=3 

:ODSUB BSOiQaTD 9G0 
180H aY=2iG0SUB 73a!GDTQ 960 
1805 '*DinECT MODE 

IBia IF LN=9 THEN By=2!G0SUB 73B!G0T0 960 
lB2a If LN0.8HB THEN 1B7IB 
1S25 '*EXTeNOED MODE 
1830 BV=3iG0SUB SBBiGOTO 9Ea 
1835 ■ *' B' BCCUM 
lB4a FOR 1=0 TO 15!IF RNOCTCI) THEN 18BB 

1850 MN«=CT«CI)!LN»LN-4:0DTD 1780 

1980 NEXT ISGDTD 940 

1SB5 '*INDEXED MODEl POSTBYTE TELLS RLL ! 

18BB ' SET PBCK) RCCDNQ TD BITS IN POSTBYTE 

1870 IX=liPB=PEEK(PC+l)'BT"PB!GOSUB 540 

laea LN=INTfPB/lB)iRN=PB-(LN*lB) 

ISBS '*LSR LFT NIBLiEROSE INDIRECT TO MAKE REG CODE 
. 1890 RQ=INTCLN/2)!IF RG>3 THEN RG-RG-4 

1895 '*CET REG NfiHE 

1900 HG*=RG«(ftB) ^,,,^ 

1905 •*POSTBYTE HOS +.-5 BIT OFFSET IF POSITIVE 

1910 IF Pfi) 127 THEN 1940 

1915 ' * FIVE BIT OFFSET, NO INDIRECT 

192a BT=PB-CRG*32)!G0BUB 840 

1930 0P»-STR«(DS)+"."+RG»iB¥-2:Q0TQ 950 

1935 '*ROUTE OPSlTWO LINEB USED FOR CLARITY 
CIS NMBRS ALLOWED) 

1940 IF RN>7 THEN RN-RN-75GOT0 19B0 „„„ 

1945 '-RT NIBL HftS CODE FOR MODE/REQ INDEXED 

1950 ON RN+1 GOTO 2010,2020.2030.2040-2000,2050. 

ON RN GOTO 2070, 2090,840, 2100, 2110.21301 940, 197B 

'fINDIRECT EXTENDED 

BY=4:G05UB 680 

■*CHK INDIRECT FLAG 

IF PB(4)=1 THEN DP*"" ( "+0P«+"> " 

GOTO 960 

'"ZERO OFFSET 

BY=2iDP«="."+RG»!G0T0 19BB 

"+RG«+ '■+■'! GOTO 19S0 

"*RG«+"++"'OOTO 19S0 

-"*RG«!GOTD 1980 

~"+RG»:GQTO 19S0 

B', ■■*RG«SG0T0 1980 

A' , '■+RG*!GDTD 1980 



19B0 
1965 
1970 
197S 
19B0 
1990 
1995 
2000 
2010 
2020 
2030 
2040 
2B50 
20B0 
2BBS 
2070 
2080 
2085 
209B 
2100 
2105 
2110 
2120 
2125 
2130 
21A0 
2150 



BY=2!QP«= 

BY»2!DP»= 

BY-2!0P*-" 

BY"2iDP»=" 

BY»2:0P»"" 

BV-2!0P»''" 

'*a BIT OFFSET 

By-3iG0SUB 570 

OP«=.BTR»(DS)*". "+RG«!G0TO 1980 

■♦16 BIT OFFSET 
BY=4:G0SLJB 5e0:GGTO 20SB 
BY=2!GP»="'D'. ■'*RG«!G0TO 1880 
'*8 BIT QFFSETiPGM CNTR RELATIVE 
By-3:G0BUB 570:00508 670 
DPE=GP»+".PCR":G0TO 1880 
■*1B BIT 0FFDET1 PC RELATIVE 
By=4;G0SUB 5S0:GDSUB E70!GOTO 2120 
DATA CV.Z.N.I.H.F.E 

DATA NOP, 12. MUL, 3D. ABX, 3A. CWAI. 3C, DAR, 18. EXG. 
IE, PSHB.34 



2160 DATA PSHU,3B.PULS,35, PULU.37, RTI.3B, RTS, 

39, SEX, ID 
2170 DATA SYNC, 13.TFR, IF 
2180 DATA LEfiX,30.LEfiU, 33,LEAS,32, LEfiY.31,ANDC,lC, 

ORCC. lA 

2190 DATA D,X. Y.U.S, PC.?,?, A,B,CC.DP.?, ?,?,? 

2200 DATA CCA, B. DP. X, Y. B/U, PC 

2210 DATA ASL,E. OSR, 7.CLR. F.COM. 3. DEC. A, INC. CLSR, 4 

2220 DATA JMP, E. NEG. O. RDL. 9, ROR. 6, TST. D 

2230 DATA BCC, 24. BCS. 25. BGQ, 27. BGT, 2E. BHI, 22. BLE. 2F 

2240 DATA BLS, 23, BLT, 2D. BMI, 2B, 6NE> 25, BPL. 2A. BRA, 20 

225B DATA BRN. 21, SVC. 28, BVS, 29, BGE, 2C 

2260 DATA STA, 7, SUBA. 0, CMPA, 1, SBCR, 2, 8UBD, 3, ANDA, 4 

2270 DATA BITR, 5, JSR. D, LDA, 6, EORA, S. ADCfi. 9. DRR, A 

2280 DATA ADDA, B. CMPX, C, LDX, E, STX. F 

2290 DATA STB, 7, SUBB. 0, CtlPB, 1, SBCB. 2, ADDD, 3, ANDD, 4 

2300 DATA BITE, 5, LDB. S. EORB, 8, ADCB, S.ORB, A 

2310 DATA ADDB.E, LDD.C,STD,D, LDU.E, STU.F 

2320 DATA CMPD, 83, CMPY. 8C, LDY, BE, STY. EF, LDS. CE.STB, CF 

2330 DATA X.Y.U, S 

234a '***HEXDUMP 

235a eX=0sLN«= CLS!PRINTiPRINT"HEXDUriP OPTIONS" 

2350 LL=8!PRINT"LINE LENGTH! S-=52, L=64" i : INPUT KY« 

237B IF KY»="X" THEN 2350 



2380 IF KY«="Z" THEN 20 

2390 IF K¥«="L" THEN LL=1E 

2400 PRINT"ASCII: N=NORriAL!C=CLR B7"!:INPUT KY« 

2405 '*CF-1 IGNORES BIT 7 IN ASCII PRINT 

2410 IF KY»="C" THEN CF=1 ELSE CF-0 

2420 IF KY*="X" THEN 23B0 

2430 IF KY«-"Z" THEN 28 

2440 LS=0:INPUT" PRINTED LISTING? (V/N)"iKY* 

2450 IF KY«="Y" GOSUB740 

24B0 PRINT:PRINT"ftDDHESS"!!GOSUB 210 

ilF KYI="X" THEN 2350 
2470 IF KY»="Z" THEN 20 
2480 IF NROI THEN 2460 
2490 PC-DB 
2500 INPUT "NUMBER OF LINES" ;NL«! IF NL«-"X" 

THEN 2460 

2510 IF NL»="Z" THEN 20 

2520 NL=VALCNL*) :IFNL=0 THEN NL=1 

2525 '"SET UP AND PRINT HEX 

253B IF NL=0 THEN 2500 ELSE LN»= DB=PC!GOSUB 34B 

2540 FDR I=PC TO PC+LL-1 

2550 SB=PEEK(I):G05UB 350!NEXT IsPRINT LN« 

2555 '*CHECK ABORT AFTER EACH LINE 

2560 IF INKEV*="X" THEN 2460 

2570 IF LS-B THEN 2590 

2580 PBINT«-2.LN» 

2585 'fBLANK BELOW PCiPRINT ASCII 

259B LN»=" "!FOR I=PC TO PC+LL-1 

ZE0O LN»=LN»+" ":BT=PEEKtl):IF CF"0 THEN 2820 

2510 IF BT<12B THEN 2B20 ELSE BT=BT-12S 

2520 IF BT<ftH20 DR 6TJSH5F GOTO 2640 

:^30 LN«-LN«+CHfi«CBT) + " "sGDTO 2B50 

2B40 LN«=LN«+". 

2650 NEXT UPRINT LN«:NL'NL-1 

2660 IF INKEY*="X" THEN 2460 

2670 PC=PC+LL!lF LS-0 THEN 2530 

2675 '"LINES ARE COUNTED BY TWO'S 

2B80 PRINTlt-2,LN*JLC-LC-2:IF LCOfl THEN 2530 

2590 GOSUB 4B0:GDTO 2530 



JUCftO 



OSI COMPATIBLE HARDWARE 

KXMIOXSEfttALKRT »'» 

ACM based nS-232 urlal piinier i»n DIP SWITCH sslvclBDIe baud nlaa ol 300-9600. 
H«n£l«'laklng^CTS)/npuMlwispfovid«alos^QnaHb8computel^l^Bnlb«pllnlwbu(^•t 
lalull.ComDa1lblewllhOS«SU V1.2 andO&iSO. 

K>CM PARALLEL PORT «m 

Cmiicmlcs SUndarel Parallal prfnier Inlwlaca tor OSI comoulsfS. Tfw ea/d eomea com- 
plBta wilb 10 tt. of flal ribbon cablo. CompallWe witb OS«50 and 0&*5U softwara. 
KWyiiO DIABLO PARALLEL PORT UTS 

DIABL0 1! BIT WORD PaiallBl porl (or use wllh woifl proooGsor typs prlnlera. ComplatB 
wiin 10 ft. cable. Compaiibls Aiih OS«SU wItwa'S. 

lO-LEVEL 3 MULTI-USER EXPANSION MSO 

Providss 3 pnnlw interfaces ourrenlly suppofled Oy OSI-Serlal, Centronics Parallel. 
Diablo Parallal. JKol mamoryat 0000 (or Multl-UBBiBiecutlve.* Port awialduslBr.Ttw 
LEVEL 3 card allows expansion of an 051 C3 machine up to 4 users with appropriate ad- 
ditional memory partitions. 

24MEM.CIin...t3M 1MilEI»-CM«...»300 8MEH-CIM...mO 

!4K memoiv card Is available at 3 dIHarBnt populaled IbvbIs. All cards are Mlf aoolieled 
(or?*«olm8nioiy.Thecardu3esJ1H.300n8cliips. DIP SWITCH aOdresainolBprovideil 
in the torm o( one 18K block and one BKtIoch. Also supoons DIP SWITCH memofy paill- 
tkin eddi'easina for^jae in multi-user systems. 
FUTOFLOPPY OtUi. CONTROLLER »1«> 

OSl-Type floppy disk controller and real tirns clock. Will Support 5V. Of 8 , Single w 
doubleaidiKi drives. F^uires drives with separated data and clock outputs. 

BIO-1«IWBAREK)CARD UO 

Sup«rifOCard.Supports8Kot!i14memoiyintweOiP SWITCH aiMressable *K blocks. 
2 18 Bit Parallel Porta may be used as primer Inleifaces.SRS-MZSerWI Pons with CTSi 
RTS tiandshakino. With manual and Motoi connectors. 

BMEM-CMtBARE MEMOHV CARD Ue 

Bs'eJ*K memory card, also supports OSI-type reai lime clockand floppy dtsJi controller. 
Wild manual and Molen connectors. 

«• PROTOTYPE IDARO ^ ^ „,,!?' 

Prololype board tiolds 96 llor 16 pin IC's, Will also accommodate IB. 24, or 40 pInIC a. 
Row and column jona markings, easy layout, y,,' epoiy fllaas P.C. board. 

CtP-EKPEXPAHSIO* INTERFACE I** 

Eipansion for CI P600or610 boards to the OSI *a Pin Buss. Uses Bipansionaockel and 
interface circuitry 10 Hipand to 48 Pir Backplane. Requires one skjt in baclipJana. 
BP-&M BACKPLANE MT 

AssemBled 8-slol backplane with male Molei connectors and termination resrslws. 

DSK-SW DISK SWITCH . W 

A circuil when added to OSI Minifloppy aystemsexlends the liteoldrves and media. Ac- 
complish Ihis by aliutlino off Minifloppy Spindle motor vrhen system Is not accessino 
trie drive. Complete KIT and manual. 



D&N 



MICRO 

INC. 

3684 N. Wells Streat Ft. Wayne, Indiana 46808 
21W485-6414 

TERMS: Ctwck or fnoney of dar Add tZ Shipping, OulsidaU.S. add 10%. 
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(^UersaLiJnter& APPLE II: 

The Keys to Unlimited Graptiics 



DRAWING TABLET 

Although VersaWriter operates on a 
simple principle, it produces graphics 
which match orexceed those of other 
aigitizers. Rugged constructron, trans- 
lucent Dose, easy to use — plugs 
airectiv into APPLE II. 





EZ Port Will Solve Your 
Came I/O Problem! 

How many times have you gone througti 
the hassle of ctianging from game 
paddles to joystick, VersaWritet, or 
anyotherdevice using thegarre I/O? 
First, you have to remove whatever is 
sitting on top of the Apple-a video 
terminal, dish drives, printer, etc. 

Next you remove the computer cover 
and try to see what you're doing as 
you switch plugs to the i/0. Then you 
replace the computer cover and what- 
ever was on top of the Apple. 

After all this, you find that you can't 
run the program because the I/O 
device is plugged in backwards or is 
'off by a pin'. 

Sound familiar? 






UNIQUE OFFER 

See VefsaWrrfer at your local dealer and 
pick up a copy ot our demonstrotion 
disii. The complete VetsaWriter hardware 
and software pockage is a real bargoin 
□t $299. For more informotion coll or 
write: 



GRAPHICS SOFTWARE 

Easily the most capable and com- 
plete grophics software tor the home 
computer available. Fast fill drawings 
in 100 colors All text in five sizes, 
compile and display shapes, edit. 
move and much more! 




EZ PORT CAME 

I/O EXTENDER 

FOR APPLE II 



WHAT IS EZ PORT? 

EZ Port is a specially designed exten- 
sion unit tor the Apple game I/O port. 
It's a board with a socket and a two 
foot long cable which plugs into the 
internal I/O port. You attach E2 Port 
wherever you prefer on the outside- 
on the side, the back, or on top. 

EZ Port has a ZIP DIP N socket 
(ZIP=2ero insertion force). These soc- 
kets are meant to be plugged into 
many times and will not wear out like 
ordinary sockets.AII you do is plug in 
the appropriate device Goystick, pad- 
dles, etc) and flip the switch to the 
ON position No pressure is exerted 
on the 16-pin plug until you switch, 
so all the connectors will last longer, 
tool 




EZ PORT MAKES CAME I/O 

CHANCES CONVENIENT, 

QUICK & SAFE. 

Suggested price $24.95 
Ask your local computer retailer for 
EZ Port, or contact: 

VersaComputing, Inc. 

3541 Old Conejo Rd Suite 1 04 

Newbuiy Park, CA 91320 

(805)498-1956 

Dealers inquiries welcome. 

Ap^le and Apple II are regi&rer&o trademarfas 
□1 Apple Cor^pulGr. Inc 

ZIP DIP fs a Iraderrark of TaxloQl Pioducls. Inc. 



3541 Old Conejo Road, Suite 104 
Newbury Park. CA. 91320 (805)498-1956 
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Now You Have 'TNe ChoicE'' 



Reliability. Quality and Performance at a reasonable Price. Systems Internationai, Inc. is pleased 
to offer an alternate to O/i/o Scientific microcomputers. Our systems are 100% compatible to OSi 
OS-65D and OS-65U software to preserve your software development investment. Just load your 
present floppies and run; no conversion of software needed or required. Compare the Foilowing 
Facts and Mal<e "The Choice. " 



Ohio Scientific, Incorporated 

Standard Features 

C2-0EM 

48K Memory, 1 MHz 

One Serial Port 

Dual 8" Single Sided Floppies 

Plug in Boards with Many Connections 

120 Volt 60, Hz Operation Only 

90-Day Warranty 

Weigi^t 80 Pounds 

SizeWI?" X HQVz" X DlSVi" 



Extra Cost Items 

Second Serial Port 

Parallel Port 

2 MHz 



Systems International, Incorporated 

Standard Features 

The Choice II 

48K Memory, 2 MHz 

2 Serial Ports. 1 Parallel Port 

Dual 8" Double Sided Floppies 

Single Board Construction lor Reliability 

120/240 Volt 50/60 Hz Operation 

180- Day Vi'arranty 

Weight 40 Pounds 

5ize W12'/z" X H13'/z" X D16" 

Shippable by UPS in Factory Carton 

Extra Cost Items 



None 



Now Compare tIie Bottom LIne ancJ MaIce ^^ThE ChoicE" 



Total Retail S4,925.00 * 



Total Retail $4,525.00 
240 Volt 50 Hz Operation add S50.00 



Future plans include the "Choice III" which is 100% compatible to the OSI C2-D 8" V\/inchester 
System. Also Multi-user V^inchester Hard Disk System that is 100% compatible with Ohio Scien- 
tific OS-65U Level 3 Software. 

RememBer — ThERE is 'The ChoicE^^ to choose a Better sysTEMi 

Domestic and International Dealer and Distributor Inquiries are Invited. Discounts to 40% 
* Ohio Scientific Price List June/July 1981 



15920 Luanne Drive 

Gaithersburg, Maryland 20760 

U.S.A. 

Tei. (301) 977-0100 TwxK 710-828-9703 



Sii 



500 Chesham House 

150 Regent Street 

London W1R5.F.A England 

Tei. 01-439-6288 Tix 261426 



IL 



J 
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BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 

HUDSON DIGITAL ELECTRONICS INC. 

THE TASK* MASTERS 

HDE supports the *TIM, AIM, SYM and KIM (TASK) with a growing line of computer programs and 
peripheral components. All HDE component boards are state-of-the-art AVi" x 6Vi", with on board 
regulation of all required voltages, fully compatible with the KIM-4 bus. 



OMNIDISK 65/8 and 65/5 

Single and dual drive 8" and SW' disk systems. 
Complete, ready to plug in, bootstrap and run. 
Include HDE's proprietary operating system, 
FODS(File Oriented Disk System). 



HDE DISK BASIC 

A full range disk BASIC for KIM based systems. 

Includes PRINT USING, IF . . . THEN . . . ELSE. 
Sequential and random file access and much 
more. $175.00 



DM81 6- MSA 

An 8K static RAM board tested for a minimum of 
100 hours and warranted for a full 6 months. 



DM816-UB1 

A prototyping card with on-board 5V regulator 
and address selection. You add the application. 



DM81 6-P6 

A 4/8K EPROM card for 2708 or 271 6 circuits. 
On board regulation of all required voltages. 
Supplied without EPROMS. 



DM816-CC15 

A 15 position motherboard mounted in a 19" 
RETMA standard card cage, with power supply. 
KIM, AIM and SYM versions. 



DISK PROGRAM LIBRARY 

Offers exchange of user contributed routines 
and programs for HDE Disk Systems. Contact 
Progressive Computer Software, Inc. for details. 



HDE ADVANCED INTERACTIVE 
DISASSEMBLER (AID) 

Two pass disassembler assigns labels and con- 
structs source files for any object program. 
Saves multiple files to disk. TIM, AIM, SYM, KIM 
versions. $95.00 

HDE ASSEMBLER 

Advanced, two pass assembler with standard 
mnemonics. KIM, TIM, SYM and KIM cassette 
versions. $75.00 ($80.00 cassette) 

HDE TEXT OUTPUT PROCESSING SYSTEM 
(TOPS) 

A comprehensive text processor with over 30 
commands to format and output letters, docu- 
ments, manuscripts. KIM, TIM and KIM cassette 
versions. $135.00 ($142,50 cassette) 

HDE DYNAMIC DEBUGGING TOOL (DDT) 

Built in assembler/disassembler with program 
controlled single step and dynamic breakpoint 
entry/deletion. TIM, AIM, SYM, KIM AND KIM 
cassette versions. $65.00 ($68.50 cassette) 

HDE COMPREHENSIVE MEMORY TEST 
(CMTl 

Eight separate diagnostic routines for both 
static and dynamic memory. TIM, AIM, SYM, 
KIM and KIM cassette versions. $65.00 ($68.50 
cassette) 



AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



Progressive Computer Software 
405 Corbln Road 
York, PA 17403 
(717)845-4954 



Johnson comouters 

Bos 523 

Madina, Ohio 44256 

1216)725-4560 



Ljx Associates 
20 Sunland Drive 
Chico, CA 95926 

(916)343-5033 



Falk-BakerAssociBtea 

382 Franklin Avenue 

Nutley, NJ07110 

(201)661-2430 

Laboratory Microcorrpiiler Consuilanls 

P.O. Box 84 

East Amherst, NY 14051 

(716)689-7344 



Perry Peripherals 

P.O. Box 924 

Miller Place, NY11764 

(516)744-6462 
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Formatting 

AIM Assembler Listings; 

A PL/65 Approach 



This program, developed with 
Rockwell's PL/65 compiler, 
reformats AIM assembler 
listings. The new listings are 
mucti easier to read than the 
standard 20-column assembler 
format. 



Christopher J- Flynn 
2601 Claxton Drive 
Herndon, Virginia 22071 



Have you assembled and printed a 
50-line program with the AlM's ROM 
assembler? Works great, doesn't it? But 
how about a 100-line program or & 500- 
line program? As you know, the assem- 
bler listings can get pretty hard to read. 

Here is a program that will run on 
any AIM. It will make those tiny, 
cramped, assembler listings very easy to 
read. But, you'll need to beg, borrow, or 
buy a printer or Teletype to coimect to 
youi AIM. 



What's the Pioblem? 

First of all, I think the AIM 
assembler is terrific. When you consider 
that it all fits in a 4K ROM you've got to 
be impressed. Remember, though, that 
the assembler has to talk to a 20-column 
printer. The assembler's designers had 
to make some tough decisions. How 
were they going to fit all the characters 
that an assembler normally produces on a 
20-column line? Let's see what they did. 

Figure lA shows a typical line of an 
assembly language program. The line 
contains a label, an opcode, an operand. 



and a comment. Run this through the 
assembler and see what happens. Look 
at figure IE. Our single line of source 
code produced three lines of printed out- 
put! The AIM assembler has a way of 
tnmtng modest source listings into 
lengthy strips of thermal paper. 



Figure 1 A: Typical line ol an assembly 
language program. 

CRLF LDA #$0D ; SEND CR 



Figure 1 B: Listing produced by AIM 
assembler. 



- = OFOO CRLF . 
A90D LDA #$0D 
;SEND CR 



Fixing the Problem 

My first attempt at fixing the prob- 
lem was based on wishful thinking. 
What if the AIM assembler really didn't 
produce multiple output lines for most 
of the input lines? What if, in the case 
above, the output line were really 60 
characters long? AIM's printer would go 
to a new line every 20 characters giving 
the appearance of three lines. So, I 
hooked up my printer and hoped for the 
best. But, I still ended up with a lot of 
short lines. 



Next, I tried directing the AIM 
assembler to tape. I wrote a short BASIC 
program that read the tape and produced 
a nicely formatted output. There were 
two things wrong with this approach, 
however. First, a BASIC program had to 
he loaded and run every time an assem- 
bler listing was needed. Second, in my 
version of the AIM assembler at least, 
there is a bug which prevents the tape 
ouput file from being closed properly. 
This results in the loss of the last few 
lines of the listing. 



This little experiment prompted me 
to develop a solution that finally worked. 
How about a user output routine? If we 
could trap each output line before it 
were printed, we could then decide how 
to reformat it. Then we could send the 
reformatted line on its way to be printed. 
Sounds simple enough, doesn't it? 

Study figure 2 very carefully, it con- 
tains, in tabular format, the specifica- 
tions for the user output routine, I'll just 
go over the highlights. 

Based on the first character of the 
ouput line, the line is categorized as one 
of four types. It can be an address line, a 
comment line, a page eject or title line, 
or lastly, an object code line. Next, the 
output routine decides what horizontal 
tab positions to use. This lets us, for ex- 
ample, line up the object code of each 
assembler instruction in the same place 
each time. Depending on the type of line 
and the current tab position, a carriage 
retum-line feed |CIU.F| sequence may 
be required before actually printing the 
line. Again, depending on the type of 
line, we may or may not issue a CRLF 
after printing the line. 

There are certain other little subtle- 
ties that we must consider. For exam- 
ple, suppose you are one of those pro- 
grammers with a habit of commenting 
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Figure 2 




Specifications 
Assembler Reform attei 






First Character 
Of Line 


Type of Line 


CRLF Before 
Tab Position Printing 


CRLF After 
Printing 


Notes 


= 


Address 


1 TAB>0 


No 




i 


Comment 


TABINS or TAB> 
TABCMT TMPCMT 


Yes 


Comments can continue on 
next line. 


_ |$5F1 


Page Eject 


N/A N/A 


N/A 


Not printed. Skip to new 
page. 


Anything Else 


Object Code 


TABINS TAB > 
TABINS 


No 


Print space after object 
code. 



your source code. The output routine 
will line up the comments with either 
the object code or near the middle of the 
page. (We'll get into that option later.] 
what happens if we encounter a long 
comment line? If you're using a 
132-column printer, not much happens. 
Most likely, though, you have a 72- or 
SO-column printer. So, an additional re- 
quirement is that we gracefully handle 
long comment lines by continuing them 
in the proper position on a new line. 

The key to getting pretty AIM assem- 
bler listings hinges upon our being able 
to take advantage of the assembler's 
seemingly peculiar behavior. As the 
assembler produces each output line, we 
intercept the line in a user output 
routine. Then, at our leisure, we can 
decide exactly where and how we want 
to print the line. 



Writing the Program 

Perhaps you were expecting a 
100-byte position-mdependent ROMable 
machine language program? Sorry to dis- 
appoint you. Take a look at listing 1. 
That strange looking program is written 
in a language called PL/65. And that 
straiage looking program is the user out- 
put routine. 

PL/65 is a language with its own set 
of syntax rules, Rockwell markets a 
two-chip PL/ 65 ROM compiler for the 
AIM 65. The PL/65 compiler translates 
PL/ 65 programs into assembly language 
source code rather than machine code. 
We have to pass the generated assembly 
code through the AIM assembler to end 
up with executable machine code. If you 
are interested in PL/ 65 programming, 
make sure you get both the PL/65 
ROMs and the assembler ROM, [Before 
I frighten readers away, the assembler 
reforraatter can be used without PL/65 ,] 

Look at listing 1 again. PL/65 prob- 
ably looks like a language you aheady 
know — PL/1, ALGOL, or Pascal, But 



as you study the listing, you'll notice 
how closely the language is tailored to 
the 6502. Do you see how the data 
declarations and definitions resemble 
what we do in assembly language? Look 
at how assembly language statements 
have been included directly in the 
PL/65 source code, PL/65 seems to offer 
the advantages of modem programming 
languages while still allowing us to take 
advantage of the CPU architecture. 

I won't attempt to go over the code 
line by Hne but there are several impor- 
tant points to note. First of all, there are 
two assembly language fMP instruc- 
tions at the very beginning of the pro- 
gram. These are vectors for device- 
dependent initialization and character 
output routines, respectively. Secondly, 
notice that the program will be entered 
at ASMOUT each time. Here we test the 
carry flag to determine if the output 
routine is being called for the fust time 
or not. With that out of the way, the 
bulk of the program is almost self- 
explanatory. Just keep figure 2 handy. 
The last 20 lines contain the assembly 
language code needed to drive my printer. 

Loading the Program 

The PL/65 ROMs are not required to 
use the asssembler reformatter. Listing 
2 shows the hex dump of the reformat- 
ter's machine code. You'll have to key 
the machine code in by hand using the 
/ilM monitor. Begin entering the 
machine code at $0200. The program 
code continues up through and in- 
cluding $0438. An 80-bytc line buffer 
occupies locations $0439 through 
$0488, Device- dependent code begins at 
$0489. I am using an RS-232 printer 
with my AIM. See the attached text box 
for a description of how I got the two to 
talk to each other. 

After you've finished entering the 
machine code into your AIM, you'll 
probably want to do a little tinkering 
with the program. Look at figure 3. It 
contains the addresses of critical 
routines and constants. 



For the assembler reformatter to 
work properly, you must supply two of 
your own subroutines to interface to the 
particular printer that you are using. If 
you have a 1200-baud RS-232 printer 
with handshaking, you can use the same 
subroutines that I am using. 

The first subroutine should contain 
any initialization logic that your printer 
may requhe. Since I am using the AIM's 
serial port, my initialization logic con- 
sists of setting two AIM monitor loca- 
tions ($A417 and $A418] for 1200 baud 
as described in Section 9.2.3 of the AIM 
65 User's Guide. An RTS instruction 
should be the last instruction in the—"^ 
initialization subroutine. 

The second subroutine is a character 
output subroutine. It should transmit 
the contents of the accmnulator to your 
printer. In my case, I first check the 
printer's handshaking line. When the 
printer is ready, I output the character 
by means of the AIM monitor serial out- 
put routine at $EEA8, The last two in- 
structions of the character output 
routine must be: 



E6 F7 

60 



INC TAB 

RTS 



These subroutines can be located 
wherever it's most convenient for you. 
[ust be sure to modify the two vectors at 
$0200 and $0203 accordingly, 

The various constants shown in 
figure 3 let you format assembly listings 
almost any way that you want. There's 
one httle trick, though, that I'd better 
let you know about, I like to begin print- 
ing in column 6 to allow mc to punch 
holes for a three ring binder. As you can 
see from the program listing, I tab over 5 
spaces every time I do a CRLF, (If you do 
not want this feature, just set location 
$03FC to $00. 1 Notice from hsting I 
that TAB gets reset to zero even after 
we've tabbed over these five spaces. Just 
keep this in mind if you decide to alter 
any other tab settings. 
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Using the Reformattet 

The reformatter is really very easy to 
use. Suppose you're ready for a hard 
copy listing of your assembly language 
program. The assembler will ask you 
"LIST?". Respond "Y". You will be 
asked for the output device "LIST- 
OUT = ". Respond "U". Don't forget to 
set the AIM user output vector at SOIOA 
to $0206, Otherwise you'll have to start 
all over again. 

When the assembler asks you 
"OBf?", be sure you answer "Y". If you 
respond "N", you may see some strange 
things happening to your listing. Re- 
spond appropriately to the "OBJ- 
OUT = " prompt. Don't forget that you 
can suppress object code generation by 
answering "X". 

Listing 3 shows what the reformatter 
can do with some sample source code 
input. Notice how the comments are 
printed. Sometimes they line up with 
the object code, other times they print 
to the right of the operand field. This 
feature is triggered by coding a special 
command in the assembly language 
source code itself. Suppose you have a 
section of code that you want to docu- 
ment with comments. In front of these 
comments place a line containing just a 
semi-colon and a carriage tetum. When 
the reformatter encounters this line, it 
will line it, and any comment lines that 
._— inmiediately follow it, with the object 
code. 

I caution you to be careful in your 
use of address space. As presented, the 
reformatter occupies locations $0200 
through $049E, Please don't try to store 
youi source program, assembler object 
code, or symbol table in this area. 

What's Nextr 

I hope that you'll agree that the 
reformatted assembly listings are very 
easy to read and work with. But, per- 
haps you would like to carry this idea a 
little farther. If we sequence-numbered 
each line, printed the address of each 
instruction, and interchanged the label 
and object code fields, our listings 
would be indistinguishable from those 
of other assemblers . Or, we could print a 
sorted symbol table. 



Christopher Flynn owns an AIM with 32K 
of RAM. His software interests include 
assembly language and BASIC, and he is 
beginning to experiment with fig-FORTH. 
Flynn is employed by the Fairfax County 
government as a systems analyst for the 
county's tax systems. 





Addresses 






Figure 3 


Assembler Reformatter 










Default 


Item 


Description 


Address 


Value 


I 


IMP to device initialization 


$0200 


4C 89 04 


2 


IMP to device output 


$0203 


4C 94 04 


3 


Limit of comment line 


$02CD 


$47 (71] 


4 


Lines per page (occurs twice] 


$0320 


$37 (551 


5 




$03CD 


$37 (55) 


6 


No. lines skipped between 








pages 


$03DE 


$0A (10) 


7 


Starting tab of each new line 


S03FC 


$05 1 5) 


8 


Instruction field tab 


$0436 


$0F (15) 


9 


Comment field tab (occurs 








twice] 


$0437 


$28 (40) 


10 




$0438 


$28 (40) 


11 


Device initialization code 


$0489 


— 


12 


Device output routine 


$0494 


— 


13 


Start of AIM text buffer 


$049F 


— 



Connecting! an RS-232 Printer to the AIM 



Handstieklng to AIM 

R 



AIM 65 
EXPAMSION 



FTKO0S1 (DARLINGTOM) 




Data to Printer 



AIM 65 
EXPANSION 



MCT-2 




7 (SIGNAL GROUND) 



5 (CTSi 

+ 5V (FROM PF1 INTER) 

3 (SERIAL DATA IN) 

7 (SIGNAL GROUND) 



To use an RS-232 printer with the AIM, you'll need to convert the AIM's 
built-in 20 mA loop to the proper RS-232 levels. Application Note No. 8 from 
Rockwell shows one way of doing this. You might like to try the circuit that I 
use. Since it does not generate true RS-232 signals, it is not guaranteed to work 
with all printers. It works just fine with an Integral Data Systems IP-125, though. 

Next, you'll need to think about software. The AIM monitor has a serial out- 
put routine called OUTTTY, located at address $EEA8. It will work with most 
common baud rates. However, youmust set locations $A417 and $A418 with the 
proper timing constants before you call OUTTTY for the first time. The timing 
constants are hsted in Section 9.2.3 of the AIM 65 User's Guide. 

If you plan to send data to your printer at a rate faster than 300 baud, then 
you'll probably be concerned with handshaking. Handshaking simply lets the 
printer tell the AIM whether the printer is ready for more data or not. However, the 
AIM has no provision for accepting a handshaking signal on its serial port. Since 1 
wasn't using the serial keyboard input for anything, I decided that that was a 
good place to coimect the printer's handshaking line. On my printer, the hand- 
shaking line win either be high or low. If you study the schematic of the AIM's 
serial keyboard input, you'll find that the signal works its way back to PB6 of the 
AIM'S VIA. Thus, to determine if the printer is busy, ail we need to do is test PB6 
for a high or low. As shown in listing I, a BIT instruction takes care of this. 
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6502 COOKBOOK 
For the machine language 
programmer u«ho knows it 
is time to get serious! Here 
are search and sort rou- 
tines, utilities, I/O & inter- 
rupt procedures, conver- 
sion routines. Slack opera- 
tions. Contains flow charts, 
source listings, explana- 
tions. Machine codes pro- 
^'ided in both octal and 
hexadecimal. Tens of thou- 
sands of our orogrammer's 
cookbooks are in use. 



Order publication: 6503 SOFTWARE COOKBOOK 
Price in United States: just $12,95 + $1 .00 s/h bv mail. 

Please include remittance with order. Allow 3 - 4 weeks 
for delivery. MasterCard & VISA credit cards accepted. 
Our phone line for credit card orders is (2031 888-1946. 
Foreign price list available. Write for more information. 

n Check here for descriptive literature & catalog. 



Name : _. _ 
Addr: _ 
City: 



State: Zip: 



MC/VISA # Bank: 

Signature: 

SCELBI Publications 

35 Old Slate Road, Oxford, CT 06483 



POWER TO YOUR AIM 

Tnat your AIM to a quality powar supply: 

1. Designed to Rockwell's specifications for the 
AIM-65 (5 volts at 2 amps, regulated; 24 volts, .5 
amps avg,, 2.5 amps peak, unregulated). 

2. Overvoltage protection to protect the expen- 
sive circuits In your AIM (5 volt output). 

3. Handsome all metal case (two tone blue). 

4. Fuse (externally accessible), switch, pilot 
light, line cord, cable from power supply to AIM — 
all included. 

5. Conservative thermal design for long life. 

S64.95 plus shipping (5 lbs.) 

CA residents add 6 % sales tax. 
VISA/MC, cashier's or registered cfieck. 
Personal checif fallow 2 weeks to clear). 

CompuTech 

Box 20054 
Riverside, CA 92516 



Listing 1: Asssmblar FormaHor In PL/SS 



; "ASSEMBLER FDRMflTTEfi"; 

i r 

r'CHRIS FLYNN 2/81" J 



f'AIM SUBROUTINES"; 

f I 

;CEF QUTTTr=«EEA3J 

i i 

f "AIM RAM"! 



;CEF CKTH30=tA417; 
!DEF CNTL30=tA418! 
r i 

;"fiiM i/D PORT" ; 

i f 

;DEF SYSDRB=*A800S 
;"ZERO PAGE RAM"; 

; ; 

fDEF *=*FOf 

fDCL CHRfLINECT.PNT.I.J; 
!DCL HCHRfTMP.TAB; 
;DCL R0t2JfRlfR2iR3i 

f "USER OUTPUT UECTOR"; 
t I 

SDEF *=*(iioa; 

;dcl uout word initcasmout:; 

» T 

r f 

fDEF *=t0200f 

f f 

S "VECTORS TO USER I/O HANDLERS"! 

T f 

J'lNITTY JMP INIT' J 

f'TTYOUT MP DUTCHR' S 

t i 

;"BEEIN USER OUTPUT ROUTINE"; 

("PERFORM INITIALIZATION IF CARRY CLEAR 

UPON ENTRY"; 
» > 

JASMQUT! 
;'BCS LINES'; 
;LINECT=Of 

fCALL initty; 
fCALL clear; 
;tab=o; 
(return; 

f r 

; "STORE LINE IN LBUFF" f 



^LINES: 
UNSTACK CHRJ 
IF CHR t=*OD THEN 

• do; 

i LEUFFCPNT]=CHRf 

i INC pnt; 

; return; 

i end; 

r r 

!"LINE HAS BEEN BUILT"- 



I 



5"TEST FDR LABEL LINE"} 
f'SEND 13 CHARS S NO CR-( 

(IF LEUFFC03='=' THEN 
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DO! 

IF TAB>0 THEN 
CALL CRLFf 
FOR 1=0 TO 12 

do; 

HCHR=LBUFF[:i3f 

if hchr>*1f then 

do; 

'LDfl HCHR'f 
CALL TTYOUTf 
EKD> 

ENDr 

TMPCMT=TABCMTf 
ENDi 
ELSE TfOi 

i) 

i'JESl FOR COMMEKT LINE" J 

("TAB TO THPCHT & PRINT" f 

tt 

ii 

{IF LBUFFCO:"' !' THEN 



t 



do; 



IF LBUFFCi:=iOO THEN 

do; 

TMPCMT-=TABlNSf 
ENDr 
IF TAB > TMPCMT THEN 
DO! 

CALL crlf; 
end; 

THP=TMPCMT-TABf 
FOR 1=1 TO TMP 
DOf 

'LDA **20' f 

CALL TTVDUTf 

FOR 1=0 TO 77 
DOS 

IF TAB>71 THEN 
DOi 

CALL CRLF! 
FDR J=l TO TMPCMT 
DO! 

'LDA »«20' ; 

CALL ttyout; 

END! 

end; 

HCHft=LBUFFEI]f 

if hchr>*1f then 
do; 

'LDA HCHR'f 
CALL TTYOUT t 

end; 
end; 
CALL crlf; 



end; 
;else do; 



;"TEST FOR PAGE EJECT"? 
SIF LBUFFtO]=«5F THEN 

i do; 

i tmp=55-linect; 

FOR 1=1 TO THP 

do; 

call crlf; 
end; 
i tmpcmt=tabcmt; 



DithcrtiZGi 




..the eye oF 
r apple: 



▼ !• 



(Continued) 



Though it is vety simple to use. the Ditriertizer II represents 
the ultimate In video cJlgiti2ing using the Apple II 
computer. The Dithertizer is an Interlace card wfiicti 
converts video input into digitized images. Because ttie 
Dittiertizer II is o frame grabber. DMA type digitizer, It 
offers e;rtreme higfi speed in the conversion process (it 
grabs an entire frame in V60th o! a second). The camera 
supplied vflth the packoge is the Sanyo model VClilOX. 
Cabling is supplied for this camera so as to have the 
Oithertizer II system up and running In minutes. The video 
comero used for input must have external sync to allow 
for the frame grabber technology employed for digitizing. 
II a camera Other than the model recommended is used, 
wiring adaptations by the user moy be required. Softwore 
is supplied v/itli the board to allow you to disploy up to 64 
pseudo grey levels on your Apple's screen. The number 
of grey levels may be changed with one keystroke. The 
intensity and contrast of the imoge ore controllable via 
game paddles. Also supplied is software lor Image 
contouring for those interested in movement detecllon 
or graphic design applications. 



The DIthertber II packags It available ready 
fo run with camera, Interface card and 
ttia software detcribed above for only; 

Dittiertizer II Interface card 
and toftware (without camera): 



$650. 
$300. 



Computer Station 

liaiOPage Service Dr. 

St, Louis. MO 63141 

(314)432-7019 

Apple II is a registered traflemarh ol Apple Computer, Inc. 
Ditriertriuer II is a trademark ol Comouler Station, Inc 
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; 



end; 

ELSE DOr 



TAB ALL ELSE TO TABINS"; 

IF LBUFFC0]>*1F THEN 

IiOi 

if tab > tabins then 

do; 

call crlf* 

end; 
tmp=tabins-tab; 
fdr 1=1 to imp 

do; 

'LDA *»20' ; 

CALL ttyout; 

end; 

FOR 1=0 TO 63 

do; 

IF 1-7 THEN 

do; 

'LDA »«20'; 

CALL ttyout; 
end; 

HCHR=LBUFFtni 

if hchr>*1f then 
do; 

'LDA HCHR'; 

CALL ttyout; 
end; 
end; 
tmpcmt=tabcmt; 

end; 



>end; 
;end; 

;end; 
r ; 

; "PROCESSING of OUTPUT LINE COMPLETED"; 
;"CLEAft LINE BUFFER AND RETURN TO CALLER"; 

fCALL clear; 
; return; 
; ; 
; ; 
; i 
; ; 

;"CARRIAGE RETURN, LINE FEED"; 

;"N0Te: all output is indented 5 spaces" f 

i i 

;crlf: 

;'LDA ««0A' ; 
;cALL ttyout; 

f'LDA »«0D' i 

JCALL ttyout; 
riNC linect; 

;iF linect > 55 THEN 

; do; 

; linect=o; 

! FOR J=l TO 10 



do; 



'LDA **Ofi' ; 
CALL TTYOUT? 
'LDA »«0D' ; 
CALL TTYOUT! 



end; 
end; 

FOR J=l TO 5 

DO! 

'LDA #*20' 



(Continued) 



AIM-65/SYM-PET-KIM-6800 

Universal Interface Board Converts AIM-65/SYM 
Into Professional Data Logger 




AOOFESS 

SGLECTIDN 
(CLOCK, MUX 



11 CHANNEL- 
MUX 



BANK SELECT, 
ADDRESS 
(ME Hon Y) 



^ COLUMBUS INSTRUMENTS INTERNATIONAL CORPORATION 

Suppllpr al Ijidlnnual iFLklrufninlii'm lolflf TIHhf rKq IVIIfPil 



9»N. HAGUE AVE. COLUMBUS, OHIO43204U.S.A. 
PHONE: (814) 4SB-G1TB TELEX: 24W14 



lAlso connects to PET or KIM with adapter cable. 
Adaptable to other 6502 and 6800 systems) 

CONTAINS: 

* 12 bits, 16 channels, fast A/D converter 

* space for additional 16K RAM memory or 32K 
EPROM (or combination) 

* real time clock/calendar with real time interrupt 
capability and 10-year lithium battery backup 

* plugs directly into AIM-65 expansion connector 
with the help of a mini-mother board which 
supports up to three interface boards 

* supplied with supportive demonstration and 
control programs 

AVAILABLE MODELS: 

* IB-902 Additional Memory 

Space (only) $ 390,00 

* IB-902-A Calendar/Clock plus 

memory space $ 690.00 

* IB-902-B A/D (12 bits, 16 channels 

plus memory apace) $ 960.00 

* IB-902-AB A/D, plus memory space 

and calendar/clock $1,270.00 

Mini mother board to support up to three (3) 

interface boards $65.00 

Quantity Discounts Available 
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)S FOR AIM-65: '499^ 

COMPLETE I 

INSTANT EASY ACCESS TO YOUR AIM-65 PROGRAMS! 
MANIPULATE OBJECT FILES AT THE TOUCH OF A KEY. 
NEW BYTE-DOS DISC OPERATING SYSTEM. 
153K BYTES ON-LINE. INEXPENSIVELY! 



BYTE-DOS COMMANDS 



^<AMK|^2i«C=~ ' 



• FORMAT - Prepares New Disc 

• BAD SECTOR SCAN - QCs Disc 

• DUMP - RAM File to Disc 

• LOAD - Disc File to Ram 

• LIST - Prints Disc File Names 

• ERASE - Eliminate a File 

• UNERASE -File Recovery 

• RENAME - Rename a File 

• COPY ■ Copy 1 File 

• TRANSFER - Copy Complete Disc 

• KOMPRESS - Optimizes Disc Space 

AND MORE! 

IT'S EASY AND FUN TO USE! 




BYTE MICROSYSTEMS 



T I 



1477 ELKA AVENUE, SAN JOSE, CA 951 Z9 408/446/0559 



^ ^ 




VISA 


maslei charge 





SEND ME THE FULL STORY! 



Name. 



• BYTE-DOS OPERATES WITH THE AIM-65 MONITOR, 
BASIC, ASSEMBLER, EDITOR, PL/65 AND FORTH. 
ACCESS IS THROUGH PROGRAM I/O AND F1-F3 KEYS. 
BYTE-DOS SUPPORTS ONE OR TWO 5%" OR 8" 
FLOPPYS! 

• BYTE-DOS $499 SYSTEM INCLUDES DISC CON- 
TROLLER CARD, TEAC FD-SOA DISC DRIVE (153K 
FORMATTED BYTES), BYTE-DOS SOFTWARE SYSTEM, 
CABLES, CONNECTORS, MANUALS COMPLETE! JUST 
PLUG IT TOGETHER AND USE! 



Company. 

Address 

City 



State. 



ZiP- 



Telephone. 



D home 
D work 



AIM-65 is a trademark of Rockwell International 
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□ I'm thinking of buying an AIM-65. 
Q Send full BYTE-DOS Data. 
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' CALL ttvout; 

t END} 

)TftB=Of 

(return; 
it 
tt 
n 

("CLEAR LINE PUFFER"! 

ti 

fCLEAR! 

JFOR 1=0 TO 7V 

( DQi 

f LBUFFC I ]»0 ; 

t end; 

!PNT=0! 
(RETURN} 



»°TAB CONSTANTS"; 

( J 

(DCL TABINS BYTE INITCIS]! 

(DCL TABCMT BYTE IMITC40D( 

»pCL TMPCHT BYTE INITC40]! 

i i 

("LINE BUFFER"( 

• t 

IDCL LBUFFC son; 

it 

ti 

ft 

("BEGIN USER I/O DEVICE ' 

DRIVER8- 
(} 

;«BEGIN OUTPUT DEVICE 
INITIALIZATION 
fINIT LDA tt02 
(SET 1200 BAUD 
(STA CNTH30 
PLDA «*FD 
(STA CNTL30 
fRTS 

(VEND DEVICE 
INITIALIZATION 



w r 



(«BEGIK CHARACTER OUTPUT 
(OUTCHR 

»bit sysorb 
;bvs dutchr 
(jsr outtty 

(INC TAB 

»RTS 

(«END CHARACTER OUTPUT 

(( 

(( 

(endpgn: 

fEXIT( 



Listing i: Vector to User Output Routine 
01 OA 06 02 

Assembler Reformatter Program Code 



02O0 « B9 


04 4C 


94 04 BO OF A9 00 85 Fl 20 00 02 20 IS 04 fl9 00 85 F7 60 68 


«ia B5 Fa 


M OD 


CS FO DO 03 4C 2£ 02 AS F2 A8 ft5 FO 99 39 04 E6 F2 60 ft? 3D 


023O CD 39 


04 FO 


03 4C 77 02 A9 00 C5 F7 90 03 4C 44 02 20 CO 03 fl9 00 B5 F3 


02*8 C9 OC 


FO 05 


90 03 4C 6E 02 A5 F3 AA BD 39 04 85 FS A9 IF CS F5 90 03 4C 


6260 67 02 


AS F5 


20 03 02 E6 F3 AS F3 4C 48 02 AD 37 04 8D 3B 04 4C DC 03 A9 


0276 3B CD 


39 04 


FO 03 4C IS 03 A9 00 CD 3A 04 FO 03 4C 9t 02 AD 36 04 6S 38 


«2S0 04 flB 


38 04 


CS F7 90 03 4C 9E 02 20 CO 03 AD 38 04 38 ES F7 85 F6 A9 01 


02fl8 B5 F3 


C5 F6 


FO 05 90 03 4C BF 02 A9 20 20 03 02 £6 F3 AS F3 4C AA 02 A9 


02CO 00 85 


F3 C9 


4F FO 05 90 03 4C OF 03 A9 47 CS F7 90 03 4C F2 02 20 CO 03 


02D8 A9 01 


8S F4 


CD 38 04 FO 05 90 03 4C F2 02 A9 20 20 03 02 E6 F4 A5 F4 4C 


02F0 DC 02 


AS F3 


AA ED 39 04 85 FS fl9 IF CS FS 90 03 4C 08 03 AS FS 20 03 02 


0308 E6 r3 


AS F3 


4C C3 02 20 CO 03 4C BC 03 A9 SF CD 39 04 FO 03 4C 46 03 A9 


032* 37 38 


E5 Fl 


B5 F6 fl9 01 as F3 C5 F6 FO OS 90 03 4C 3D 03 20 CO 03 E6 F3 


0338 AS F3 


4C 2A 


03 AD 37 04 8D 38 04 4C BC 03 A9 IF CD 39 04 90 03 4C BC 03 


0350 AD 36 


04 C5 


F7 90 03 4C SD 03 20 CO 03 AE 36 04 38 ES F7 85 F6 A9 01 85 


«368 F3 C5 


Fi FO 


05 90 03 4C 7E 03 fl9 20 20 03 03 E4 F3 A5 F3 4C 69 03 A9 00 


0380 85 F3 


C9 3F 


FO OS 90 03 4C B6 03 A9 07 C5 F3 FO 03 4C 99 03 A9 20 20 03 


0398 02 A5 


F3 Aft 


BD 39 04 85 F5 A? IF C5 FS 90 03 4C AF 03 A5 FS 20 03 07 E* 


03BO F3 AS 


F3 4C 82 03 AD 37 04 8D 38 04 20 IS 04 60 fl9 OA 20 03 02 A9 OB 20 


03C9 03 02 


E6 Fl 


A9 37 C5 Fl 90 03 4C F7 03 A9 00 85 Fl A9 01 85 F4 C9 OA FO 


03E0 05 ?0 


03 4C 


F7 03 A9 OA 20 03 02 A9 OD 20 03 02 E6 F4 AS F4 4C DD 03 fl9 


03FB 01 as 


F4 C9 


OS FO 05 90 03 4C 10 04 A9 20 20 03 02 E6 F4 A5 F4 4C FB 03 


0410 A? 00 


35 F7 


60 A9 OO 85 F3 C9 4F FO 05 90 03 4C 31 04 AS FJ AS A9 00 99 


0428 37 04 


E6 F3 


AS F3 4C 19 04 fl9 00 85 F2 60 OF 28 28 



RS-232 Printer Driver 



0489 A9 02 SD 17 A4 A9 FD BD 18 fl4 40 2C 00 A8 70 FB 20 AS £E Ei F7 60 



Listing 3A.' Source Listing of Sample Program 



S=»0200 

□UTTTY =>«EEfia JfllM SERIAL OUTPUT ROUTINE 

V 

(SAMPLE PROGftAM TO ILLUSTRATE ASSEMBLER REFORMATTER. 

CRLF LDA *«0D iSEND CR 

JSR OUTTTY 

LF 

LDA *«0A !5END LF 

JSR OUTTTY 

RTS fBACK TO CALLER 

.END 



Listing 3B: Assembler Listing ol Sample Program 



=0000 

=0200 OUTTTY 



-0200 CRLF 

=0205 LF 



PASS 1 
PASS 2 



«=*0200 
=«EEA8 



JflIM SERIAL OUTPUT ROUTINE 

SAMPLE PROGRAM TG ILLUSTRATE ASSEMBLER REFORMATTER, 

A90C LIiA *$0D iSEND CR 

20AaEE JSR OUTTTY 

A90A LDA *»0A pSENL LF 

20A8EE JSR OUTTTY 

^'> RTS (BACK TO CALLER 

■ END 



iUCRO 
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PROGRAMMING THE APPLE 
JUST BECAME EASIER! 



o 



X 



< 



< 

o 

CO 
< 
Q. 



A DOS 3.3 Compatible, Unix-like Operating System 

ANIX 1.0 is a "Tiny-UNIX""" that is completely file structure upwarcte 
compatible with DOS 3.3. ANIX incorporates a healthy subset of UNIX'S" 
capabilities, and a superset of CP/M's" capabilities. 

In addition to the ANIX operating system, Lazer provides over 30 
utility programs on the ANIX disk. While the list is much too long to 
describe here, many of the programs found on the ANIX disk are selling alone 
for betweoi $30 and $60. ANIX supports powerful screen editing commands and 
will autonatically time and date stamp files saved to disk (if a clock card 
is installed). For a conplete description of ANIX's capabilities, call or 
write Lazer. 

ANIX is the start of a conplete line of system software tools available 
from Lazer Microsystems, Inc. All new languages and applications programs 
available from Lazer will run under the ANIX operating system. Lazer Pascal 
is available now. Other languages and systems are in the works. Productive 
programmers are already using ANIX, are you? 

The Elegance of Pascal, The Power of "C 

Lazer Pascal is a unique systems programming language for the ^^le 
II. it coi±)ines features found in Pascal and is extended to include several 
features found in the "C" programming language forming a fast (1500-2000 
lines/min) and powerful program creation systan. 

Lazer Pascal supports BYTE, CHAR, BOOLEAN, INTEGER, I£NG, pointer, 
string, array, static, and dynamic data types. Lazer Pascal was created to 
replace 6502 machine language as the choice of systems and game 
prograirmers. Included with Lazer Pascal are several sample programs 
including: ANIX.P, TSTPARMS.P, LINECOUNT.P, WORDCOUNT.P, CHARCNT.P, 
EXPAND.P, CCMPRESS.P, CKfPT.P, and TRANSLIT.P. Better yet, the 6502 source 
listings (LISA v2.5 format) for the corpiler, P-code interpreter, and other 
utilities are included. 



ANIX, Lazer Pascal, and DISASV65 were all written by Randy Hyde, the 
author of "USING 6502 ASSEMBLY LANGUiCE", LISA, SPEED/ASM, DOSOURCE 3.3, and 
Other fine software products. Additional information on Lazer's software 
products can be obtained by calling or writing Lazer Microsystems, Inc. 



ANIX: $49.95 
LAZER PASCAL: $39.95 



UNIX" Bell Labs. 

APPLE 11" Pjpple Corputer, Inc. 

CP/M" Digital Research, Inc. 

No. 45- February 1982 



Other fine Lazer Products: 

Lower Case +Plus II: $29.95 

Lower Case +Plus: $64.95 

Keyboard +Plus: $99.95 

Character Set +Plus: $24.95 
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GET 120% VALUE FOR YOUR 

PROGRAM PURCHASING DOLLAR 

WITH 



MORE THAN JUST A DATABASE 

Version 2 of the versatile Modifiable Database 




^E55 MIJV k£ . 



DATA PLOT 
& ANALYSIS 



Data may be plotted in s variety 
of formats such as scatter graphs, 
lire graphs, bar charts, and pie 
charts. 

Ranges, minimuma, maMjmums, 
means, standard deuia lions, cor- 
relation coefficients, etc. of any 
numOer of data fiiei can be 
calculated 



REPORT GENERATOR 




/ 




o 

01/ 



POWERFUL 
DATA MANAGER 



■ Versatile, user definable database can store 

data segmenved by up to 35 fields. 

■ User onenled format 15 easy for the novice"^ 
or professional to ulilue. The use of menus, 

extensive prompting, singli: keystroke com- 

mancJs, and a universal escape capability allow 

anyone lo store or retrieve information m 

seconds without errors, 

■ Machine language searches and sorls operate 

in a fraction of the time required by other 

programs, 

■ Searches or sorts, subtotals or totals may 
be performed on any field at any lime, not 

}u5t on those that are indened or specrfied in 

advance. 

■ Search results may be displayed, printed, 
deleted, counted, totalled, edited, and/or 

:aved to a new data file. 



OTHER FEATURES 




The scphiancaled report generator allo^^s 
you to format your dale output in an infinite 
variety of ways- 

Vou can pnnr form letters, columnar 
reports, lists, maFlmg Jabel^, etc. 

Data, ration or the results of calculations 
can be embedded aoy^vhifre in your letters or 
reports. 

The report generator gives your output the 
professional appearance that you require 



SYNERGISTIC SOFTWARE 

ORDER YOURS TODAY! 



Floppy Drive version $220.00 — Hard Drivs version $220.00 

Available from your local dealer or send check or money order to Synergistic Soft- 
wara, 5231 120 Avenue S.E., Bellevue, Washington 98006 or phone 20e-326'321G. 

IfVashington residents add 5.4% sales tax. 
Apple is a tracfemark of Apple Computer, Inc. 



■ HARD DISK DRIVE COMPATIBILITY 
wvith ha^^ drive version, worKs v/ith Corvus 

and other hard driiJ9s. 

■ Works With aU Floppy drjve^ uvJth slot, 

drive and volume selection. 

■ You can append or merge up to a fufi disk 
of data fi[es, or segment your data jnto sep- 
arate [lies by a search key. 

■ Searches can contain up to 10 leveLS- You can 

search for a key word in any field, the absence 

of a keywordn or a number being uvithin a 

specified range. 

■ Global editing of data may be performed. 

■ Arithmetic processing can be performed 

during record entry, edit, or oulput- 

' Record entry, edit, or deletion fmdfvidual 

records or blocks} can be performed vjith no 

tedious delays ^aitrng for drsk accesses, index 

file updates, etc. 

- Data may be stored on any number of floppy 

or hard disk drives. 

" Data fries can be reformatted at any time 

without reentering the data. 

■ With $5,00 Ragistration Fee receive one 

backup disk. 

' The package requires an Apple II plus or 

Apple fl tvith Applesoft frrmwate, 4eK RAM, 

at least one disk drive, and DOS 3.3. 
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Microbes 
and Updates 



Dear MICRO; 

There is an error in the "Pascal 
Tutorial; Part 2" in MICRO 43:57. The 
error has to do with the status of the 
file SY STEM. WRK. TEXT in the Apple 
Pascal Operating System. 

The manual for the Pascal software 
emphasizes that the workfile is treated 
differently from other files. Essentially, 
only the commands G(et, S[ave, and 
N|ew should be used with the file SYS- 
TEM. WRK. TEXT. The commands 
Cfhange, T[ransfeT, and R|emove 
should never he used with the workfile. 

The reason we must be careful 
when working with the workfile is that 
Pascal "remembers" the status of the 
workfile, and its integrity can only be 
assured if we operate on the workfile 
with, and only with, the established 
workfile commands. For example, if 
we R(emovc the workfile and attempt 
to E|dit It, the message WORKFILE 
LOST will be given. But if we clear the 
workfile with N(ew, the editor will 
^realize that there is no workfile and ask 
for a file to edit in the usual way. 

There is one other point I'd like to 
make concerning the Slave command 
in the filer. If the file is saved on the 
Root Volume (in the example from the 
article; LEDGER or APPLE1:LEDGER 
rather than, say, ^5:LEDGER!, the 
workfile will be renamed LEDGER. 
TEXT and LEDGER. CODE. A subse- 
quent N|ew command will result in 
WORKFILE CLEARED. On the other 
hand, if the workfile is saved on some 
other volume, it will be copied to that 
volume without disturbing SYSTEM. 
WRK, TEXT and CODE on the Root 
Volume. The filer responds to the N(ew 
command with THROW AWAY CUR- 
RENT WORKFILE? (Correct answer is 
"Y", since the workfile has been saved 
on another volume,) 

PaulK, Fessler 

Sales Manager 

Computers Plus 

6120 Franeonia Road 

Alexandria, VA 22310 



Dear MICRO: 

Fie re are corrections to a few 
typographical errors in my article, 
"Precision Programming" (MICRO 
42;06|, 

On page 8 in the IF-THEN-ELSE 
figure, the expression in the diamond 
reads x = y; it should read: x > =y. 

In the first paragraph on page 9, the 
second line contains words in quotes; 
these should read: "leading zero?". 

Also on page 9, in the third column 
near the top, the while statement 
should read: while \{] < -n), etc. Fur- 
ther down the column, the if statement 
should read: if i > n, etc. 

On page 10, in the third paragraph 
in the first column, a " >" is left out. 
The statement should read: TABLE i = 
KEY orI>N, 

Al Flamihon 

12090 BrookstonDr- 

Springdale, OH 45240 



Dear MICRO: 

There is an error in my article, 
"The PET from A to D" [MICRO 
41:60), The voltage-controlled oscil- 
lator circuit in the article is enoneously 
referred to as the 74LS 235, The correct 
designation is 74LS 325, 1 regret any in- 
convenience the error may have caused 
to readers, 

John R. Sherburne 
4418 Andes Drive 
Fairfax, VA 22030 



Taylor Listing 

BBBB REM 



Dear MICRO: 

The following errors were noted in 
the article, "Ultimate Ping-Pong for 
PET," by Werner Kolbe |42:67). While 
the HEX addresses were correct, the 
assembly was in error. 



OAFS- 10 F8 
OAFS- 10 F8 

0C80- 85 BF 
0C80' 85 BF 



BPL LI [should be) 
BPL L13 

ST 'RRVS (should be| 
STA 'RRYS 



OCBF- 80 4B E8 SA W26 (should be| 
GCBF- 80 4B E8 STA W26 



0CF4- 90 02 
0CF4- 90 02 



BCC L3 (should be) 
BCC L53 



Otherwise this is a very good program. 

Albeit I. Reuss 

13978 Morgan Avenue 

P,0, Box 388 

Clearlake, CA 95422 



Dear MICRO: 

1 am enjoying immensely the article 
"Function Generator and Library Man- 
ager' ' by Ray Cadmus (MICRO 42:94). I 
thought you might be interested in a 
quick and dirty fix for this print-using 
routine. It isn't fancy, but it takes care 
of a problem cited. It also implements a 
trailing minus sign (see below). 

One problem which still puzzles me 
is roundoff. The original routine rounded 
,025 to .02, Changing the expression 
"INT ((P + ,005) * 100)" to "INT 
((,005 -I- P] • 100)" (Mr, Cadmus' line 
8004, my line 8010) fixes the problem, 
but don't ask me why! 

CharlesF, Taylor, Ir, 
587 F Sampson Lane 
Monterey, CA 93940 



*** PRINT USING *** 






REM 
REM 
REM 



eeme sg = 

SI312 IF 



FOR « RND CENTS FORMST 

P= VALUE! PL= LENGTH flNCL SIGN) 

P» = FIELD ftCTUOLLY PRINTED 

SON IP) :P = ftBS tP) 

STRS C INT Ci:.005 + P) * 100)) 
LEN (PS) < 3 THEN P« = LEFT* 
t"000", t3 - LEN tP«))) + P* 

C LEN (P*) - 2)) + ". " 



Bai4 P« = LEFT* (PS 

B016 P* = RIGHT* (" " + P*. PL - 1) 

SBIB IF SG < THEN Pt = P* + "-":P = BG * P: 

SB2a P» = P* + " " 

BB22 RETURN 



+ RIGHT* CP*,2) 



GOTO S022 



woto 
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GRAPHICS 

FOR OSI COMPUTERS 

i^ You Can Produce The Images 
Shown Or Yours And Program 
Motion With Our 256 By 256 High 
Resolution Graphics Kit. ^ 

Thats 65,536 Individually Controlled 
Points On Your TV Screen. 

■^ Increase Column/Line Display. 
You Can Set Up Your Own Graphic 
Pixels Including Keyboard Characters 
And Unlimited Figures. _^^ 

iV This Kit Includes All Parts, Software 
And Assembly Instructions Required 
To Get Up And Running. 
The Included 8k Of 21 14 l\/lemory 
Is Automatically Available When 
Not Using The Graphics. 
Boot Up And See 8k More Memory. 

i^ Adding The Kit Does Not Affect -^ 
Your Existing OSI Graphics. ^ 
Use Both At The Same Time 
Or Separately. 

-^ Buy The Entire Kit, 

Including Memory, For $185.00 
Or A Partial Kit For Less If You 
Have Parts. Board And 
Instructions $40.00. Instructions 
Include Software. 




For This Kit Or A Catalog 

Of Other Kits, Software 

And Manuals Call Or Write: 

MITTENOORF ENGINEERING 

905 Villa Neuva Dr. 

Litchfield Park, Az. 85340 

(602)-935-9734 



Superboard 
Expansion System 



This easily constructed 
motherboard can vastly Increase 
the capabilities and applications 
of the C1P and Superboard II. 
Memory and I/O plug-In boards 
double the memory and allow 
easy Interfacing to external 
devices. 



D.W. Kammer 
Department of Physics 
Albion College 
Albion, Michigan 49224 



The Ohio Scientific CIP and its single- 
board version, the Superboard II, are two 
of the best buys on the current small 
computer market. With 8K Microsoft 
BASIC-in-ROM, an ASCD keyboard plus 
video and cassette interfaces, these com- 
puters are capable of most of the require- 
ments of a hobby computer. 

However, there are two serious 
limitations. A maximum of 8K of ran- 
dom access memory (RAM| is available 
and the input and output (I/Oj 
capabilities are meager. The memory 
limitation is particularly important 
when using an assembler/ editor (which 
takes up most of the 8K RAM) for 
machine code programming. The only 
I/O available is a 6850 ACIA with an 
unpopulated RS-232 port and a joystick 
port. It is therefore difficult to interface 
the computer to all the peripheral 
devices that make a computer fun after 
tiring of BASIC programming. OSI sells 
an expansion board that provides extra 
memory (with no I/O ports}, but it costs 
as much as a Superboard n. 

The most general approach to these 
problems is the construction of a 
motherboard interfaced to the computer 
bus. This enables the construction of a 
variety of circuit boards which are simply 
plugged into edge connectors on the 
motherboard. Your imagination is now 
the only limiting factor on what the 



computer can do. This article describes 
8K RAM memory and I/O plug-in 
boards, but I have built boards for 
burning EPROMs, music and sound 
generation, Morse code/RTTY transmit 
and receive, and serial I/O for printer 
operation. 



The Motherboard 

Access to the computer system bus 
is gained through 11, a 40-pin DIP 
socket on the computer board. The pin 
identification for this socket is given in 
table 1. No RESET signal is provided by 
OSI, but it is useful for certain peri- 
pheral ICs. A wire should be soldered 
from the CPU side of the BREAK key 
on the keyboard to pin 11 on the DIP 
socket. The DATA lines are buffered by 
8T28s |not supplied by OSI) on the 
main board; the other lines are con- 
nected directly to the 6502 CPU. 



The 6502 does not have the drive 
capability to handle a motherboard so 
buffets must be added. Figure 1 shows 
the buffer circuit which goes between 
the computer and the edge connectors. 
All signals except for the intemipts, 
DATA and RESET Imes, go through 
74LS241 octal bus line drivers. The in- 
terrupt lines are buffered by a 74LS17 
open- collector buffer driver. The 8T28 
data buffers require a data direction 
(DD] signal which is low for reading 
data and high for writing data. Any 
peripheral circuits must have logic for 
controlling this line. Note that the 
interrupt and DD lines have pull-up 
resistors because several plug- in boards 
may require access to them. By using 
open-collector TTL ICs on the plug-in 
boards and the pull-ups, this line con- 
tention is easily solved. 

The motherboard uses 44-pin 0.156 
in. spacing edge connectors because of 
the availability of prototype boards for 




Photo 1:Tha completed motherboard connected to a Superboard II. The buffer cir- 
cuitry Is also mounted on a plug-In card In this arrangement. Other cards In order 
3K memory, I/O, EPROM, serial I/O, and 8K memory. 
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GND B. 9 
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Figure 1: Tha motherboard circuit showing full butlaring of all lines but data and reset. Additional edge connectors are wired 
in parallel with the one shown. 



them. Both Vector and Radio Shack 
have a variety of suitable boards. The 
connectors can be mounted on a sheet of 
perf board or aluminum after suitable 
slots are cut and simply wired in 
parallel. Power and ground lines must 
use heavy wire; 16 gauge copper as used 
in home wiring works well. A commer- 
cially etched motherboard (Electronic 
Systems, P.O. Box 21638, San fose, CA 
95151, Part No, 102) is available, which 
has room for ten 44- pin edge connectors. 
A 40-pin DIP socket should be mounted 
in some convenient place to receive the 
signals from the computer through a 
double 40-pLn DIP jumper. The bus 
definition is given in table 2, and photo 
1 shows one possible arrangement of the 
fully populated motherboard. 

The power supply of the CIP may 
not be sufficient to meet the require- 
ments of the motherboard, particularly 
if a large amount of memory is driven. 
This should be checked to prevent 
damage, and a suitable power supply 



Tab/« 1: OSI 600 Board J1 Expanalon 




Connector PInout 








1 IRQ 


21 


AB9 




2 NMi 


22 


ABIO 




3 DD 


23 


ABll 




4 DBO 


24 


AB12 




5 DBl 


25 


AB13 




6 DB2 


26 


AB14 




7 DB3 


27 


AB15 




8 Ground 


28 


Ground 




9 Ground 


29 


Ground 




10 Ground 


30 


Ground 




n RESi*] 


31 


Phase 2 




12 AB2 


32 


R/W 




13 ABl 


33 


DB7 




14 ABO 


34 


DB6 




15 AB3 


35 


DB5 




16 AB4 


36 


DB4 




17 AB5 


37 


Ground 




18 AB6 


38 


Ground 




19 AB7 


39 


Ground 




20 AB8 


40 


Ground 





rsbfa 2: KIM-4 


Expansion Connactoi 


Pinout 




E-1 


Ground 


E-A Ground 


E-2 


ISync] 


E-B ABO 


E-3 


[RDY| 


E-C ABl 


E-4 


IRQ 


E-D AB2 


E-5 


(S.O,) 


E-E AB3 


E-6 


NMI 


E-F AB4 


E-7 


RES 


E-H AB5 


E-8 


DB7 


E-J AB6 


E-9 


DB6 


E-K AB7 


E-10 


DBS 


E-L AB8 


E-1 1 


DB4 


E-M AB9 


E-12 


DB3 


E-N ABIO 


E-13 


DB2 


E-P ABll 


E-14 


DBI 


E-R ABl 2 


E-15 


DBO 


E-S AB13 


E-16 


DD 


E-T ABM 


E-1 7 


[nc| 


E-U AB15 


E-18 


|nc] 


E-V Phase 2 


E-19 


-I-Sv 


E-W R/W 


E-20 


+ 8v 


E-X [Phase 2] 


E-21 


+ 5v 


E-Y -hSv 


E-22 


Ground 


E-Z Ground 
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EXPANSION 




If your Challenger can't generate displays like ihose shown alx)ve 
WHAT ARE YOU WAITING FOR? The SEB-1 High Resolution 
Graphics and Memory Board (for CIP and Superboard II] and the 
SEB-2 High Resolution Graphics and Disk Controller Board (for 
C2/4/a) simply 'plug-in' to your computer and give you instant 
access to over 6000 individually addressable pixels in up to 8 
colors! Your Hi-Res screen can go from 32x 1 6 alphanumerics to 
256x192 point graphics in n software selectable modes. The 
standard video of your computer is left intact, so that none oi your 
current software library is outmoded. Use the graphics for 
Business, Scientific, Education, or Gaming displays that were 
impossible— until now! 

SEB-1 SEB-2 



Installation of either board requires absolutely NO modification of 
your computer— they just 'plug-in'. Nor do they preclude your 
using any other OSI-compatible hardware or software. In addition 
to the Hi-Res Graphics the SEB-1 gives CI & Superboard It users 
1 6K of additional user memory (over and above that memory 
devoted to the graphics), two 16 bit timers/counters, an on-board 
RF modulator, and a parallel port with handshaking. The SEB-2 
gives OSI 4B-pin BUS users an OSI hardware/ soft ware 
compatible Disk controller, and an RF modulator that can be 
user- populated. 

FOR OSI IP. 2-4P, 2-aP, C4P, C8P 



SEB-1 



SEB-2 



Assembled and Tested 
Kit 



$249.00 {5K RAM) $239.00 (1 K RAM) 
S165,00{NoRAM) $145.00 (No HAM) 



Bare Board & Manual $ 59,00 $ 59.00 

Manual only $ 5.00 $ 5.00 




TARG-ITl '■'■'■SS 

An action-packea, super (asl aioads game where you try [odeslroy Ram ships and llie 
Evil Speclre irsicJe the Cryslal cily. SK. 

PLANETARY LANDER $11.95 

Your computer geoerales conlour maps ol the surface of a slrange planel as you 
descend looking lot ine landing pad As you make your finai approacli, llie computer 
displays side and lop views olHie leirainand your stiip as you try lo land while avoiding 
the smarms ol asleroids aboye ihe plar>et's surlace. BK. 

PROGRAMMA-TANK *9-95 

Ptogramma-TanK 15 a comple< simulation ol a Patlie between two robot tanks as well as 
a (airly painless way lo learn assembly language. The opponenis program Iheii tanks in 
Smalllank' a minialura programming language, which is much like assemOly language. 
The two sirategies ate then pitied againsi one another until a viclor emerges. SK 

COMING: SEB^S 80x24 VlclealDlskCon1rollBI<C2l4IBi,SfB-4 4BKUenioiy 
RAMIROM (CH4IS). SeB-S SK B4WD)s*;Sound(Cfocfc/Vo)ee (CI s Superftoarcf). 



WfilH lor FREE catalog 

(For International fequesls, 
please supply 2 ol postage) 



ORION 




RUINS OF TALAMARINE $16,95 

This is the liisl ol our "Epic Quests" programs. Epic Quesls could be described as 
graphic advenlures. Dul Ihey are mtkch more. Can you relrieve the slolen Jewels (rom 
the ruined Talamaiine castle? Thrs series of two programs allows you lo create a 
character with the gualuies »ial you want to do bailie wilh The forces or darkness 3K 

CODENAME: BARRACUDA S19.95 

Aroiner of our "Epic Ouesis'i m which you ate an agerl working for Ifie US 
Governmeni trying io rescue a defecting Soviet professor. The problem is Ihal a 
middle -easlem govefrimenl has kidnapped the professor artd is forcing him lo develop 
atomic weapons foi fhem. The Ihrea programs (BK ea,) m Ihis series allow you (o 

Crealo. (rain and send your character on his mission 

DUNGEONS OF ZORXON $19.95 

Can you e^-plore Ihe Dungeons ol Zorxon In this "Epk; Ouesl ? Step info a neffier world 

of monstrous beasts and fortunes in gold where magic reigns supreme. Three 
programs 9K each 




SOFTWARE ASSO. 

147 MAIN ST, PO BOX 310. 0SS1N1NG, NY 10562 



used to drive the motherboard if power 
requirements are excessive. The 8V Hne 
given in the bus definition is used if you 
have a separate power supply and makes 
the bus more versatile. This voltage 
must be regulated down to + 5V on your 
peripheral boards. 

The 8K RAM Memory Board 

The circuit for the memory board is 
shown in figure 2. Low-cost 21i4L 
450ns 8K static RAMs are used for 
memory and a 74LS138 l-of-8 decoder/ 
demultiplexer decodes the address lines. 



Two common TTL gates (one open- 
collector) generate the DD signal. The 
address for the memory is $200O-$3FFF 
which is just above the 8K memory sup- 
plied on the computer board. It would be 
easy to change its location by placing 
unused gates in the DD decoder ICs be- 
tween the address lines and the 
74LS138, or by simply interchanging 
these address lines. The memory map of 
the CIP allows up to 40K of contiguous 
random access memory, to $9FFF. 

All the ICs fit on a Vector type 
VCT-3677 DIP board with room to 



spare. The Radio Shack type 276-156 
prototype board is too small to hold 
more than 3K of memory. Either wire- 
wrap or solder construction can be used. 
This board requires up to 1.5A power 
supply current, so be sure the supply is 
stiff enough and that adequate filtering 
and bypassing arc used. 

The I/O Board 

Figure 3 shows the circuit for the 
simple I/O board- The 6522 Versatile 
Interface Adapter [VIAl is indeed one of 
the most versatile I/O chips available as 
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USE ONE 0.1 n F BYPASS FOR EACH PAIR OF 2114's. 
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F/gura 2: The 8K random access memory board. This circuit requires three support ICs, one an open -co I lector type for data 
dfrection decoding. 
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FIgum 3: The I/O board uses a 6522 Versatile Interface Adapter which provides 16 
bidirectional I/O lines. 



detailed in a recent MICRO article 
(32;65]. Besides two bi-directional 8-bit 
parallel ports, four handsbaking lines, 
two timers and a shift register are in- 
cluded. It is also one of tbe easiest chips 
to program to do what is wanted, fust 
two support TTL ICs are required to 
handle address decoding and the DD 
signal. It would be easy to add another 
VIA using one of the 74LS138 uncon- 
nected output lines for address de- 
coding; this would give 32 I/O lines. 
The 6520 or 6821 Peripheral Interface 
Adapter (PIA) could also be used with 
some modification of the address 
decoding. 

The address for the VIA is 
$E0O0-$E00F, but the address bus is not 
fully decoded in the circuit, so these 
addresses are echoed to $E!FF. This 
wasted space is so high in memory that 
no problem should exist. 

The circuit fits easily on a Radio 
Shack type 276-156 prototype board and 
can be wired in a short time. The I/O 



and handshaking lines are brought to 
two 14-pin DIP connectors. It would 
also be a good idea to bring -i- 5V to these 
connectors in order to supply current to 
low-power peripheral circuits connected 
to the ports. 

Conclusion 

For anyone who likes to design and 
build hardware, a Superboard fl with the 
peripheral motherboard is about the 
cheapest way to obtain a sophisticated 
system that is easily interfaced to any 
original circuit design. !t indeed opens 
new horizons for the computer hobbiest. 



David Kammer teaches physics at Albion 
College and became interested in 
microcomputers upon purchasing an ELF 
computer several years ago. Current 
interests include expanding his Superboard 
II |in progress: interfacing a Stringy 
Floppy© tape drive and an 80 x 14 video 
driverl and using a SYM to collect and 
analyze data in physics experiments. 
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OHIO SCIENTIFIC 

THE WIZARD'S CITY — 

search for gold in the dun- 
geons beneath the Wizard's 
city or in the surrounding 
forest. A dynamic adventure 
allowing progress in strength 
and experience. All OSI — 
cassette $12.95, disk $15.95. 

OSI HARDWARE 15% OFF 
RETAIL PRICES! 

GALACTIC EMPIRE — a strat- 
egy game of interstellar con- 
quest and negotiation. Com- 
pete to discover, conquer, and 
rule an empire with the com- 
puter or 1-2 other players. C4P, 
C8P cassette $12.95, disk 
$15.95. 

AIR TRAFFIC ADVENTURE — 
3 real time air traffic simula- 
tion. C4P, C8P disks $15,95. 
Pius S-FORTH, PACKMAN, 
CRAZY BOMBER, ADVEN- 
TURE, TOUGH TYPING, IN- 
TELLIGENT TERMINAL and 
more. Send for our free 
catalog including photos and 
complete descriptions, 
(312)259-3150 
Aurora Software Associates 
37 S. Mitchell 
Arlington Heights 
Illinois 600O5 
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The Newest In 



Apple Fun 



We've laken Hveofourmosi popular programs and 
combined them inio one Eremendous package full of 
fun and esciiemeni. This disk-based package now of- 
fers you Ihese greai games: 

Mimk — How good is your memory? Here's & chance 
10 find ou[! Your Apple will di^lay a sequence of 
figures on a 3x3 grid. You musl respond wilh Iheex- 
aci same sequence, wiihin the lime limii. 

There arc five different, increasingly difllculE ver- 
sions of ihe game, including one ihai wi!l keep going 
indefinitely , Mimic is exciiing, fas: paced and 
challenging — fun for all! 

Air Righl Slmulalion— Your mission: Take off and 
land your aircraft without crashing. You're flying 
blind — on instruments only. 

A full tank of fuel gives you a maximum range of 
about 50 miteSr The computer will constantly display 
updates of your air speed, compass heading and 
altitude. Your most important instrument is the An^e 
of Ascent /Bank Indicator. It tells if the plane is climb- 
ing or descending, whether banking into a right or left 
turn. 

After you've acijuired a few hours of flying time, 
you can try flying a course gainst a map or doing 
acrobatic maneuvers. Get a little more flight time 
under your belt, the sky's the limit. 
0>lormBsler — Test your powers of deduction as you 
try to guess Ihe secret color code in this Maslermind- 
lypegame. There are two levels of difficulty, and three 
options of play to vary your games. Not only can you 
guess the computer's color code, but ii will guess 
yours! It can also serve as referee in a game between 
two human opponents. Can you make and break (he 
color code . . . ? 

Star Ship AtUck — Your mission is to protect our or- 
biting food station saleililes from desiruciion by an 
enemy star ship. You must capture, destroy or drive 
off the attacking ship. If you fail, our planet Is 
doomed , . . 

Trihigy — This contest has its origins in the simple 
game of tic-lac-toe. The object of the game is to place 
three of your colors, in a row, into the deha-like, mul- 
[i-level display. The rows may be horiionial, vertical, 
diagonal and wrapped around, through the "third di- 
mension". Your Apple will be trying to do the same. 
You can even have your Apple play against itself! 

Minimum system requirements are an Apple II or 
Apple II Plus computer with 32K of memory and one 
minidisk drive. Mimic requires Applesoft in ROM, all 
others run in RAM or ROM Applesoft. 
Order Ne. 01«1AD S1V.9S 



Solar Energy For The Home 

With [he price of fossil fuels rising aslronomically, solar spate-heating systems arc starling lo become very 
attractive. But is solar heat cost -effective for you? This program can answer that question. 

Just input this data for your home; location, size, interior details and amount of window space. It will then 
calculate your current heat loss and the amount of gain from any south facing windows. Then, enter the data 
for the contemplated solar healing installation. The program will compute the NET healing gain, the cost of 
conventional fuels vs. solar heal, and the calculated payback period— showing if the investment will save you 
money. 

Solar Energy for the Home: It's a natural for architects, designers, conlraclors. homeowners. . .anyone 
who wants lo tap the limitless energy of our sun. 

Minimum system requirements are an Apple II or Apple 11 Plus with one disk drive and 2SK of RAM, 
Includes ApplcDOS 3.2. 
Order No. 0235AD {disk-based version) S34.95 



Math Fun 



The Math Fun package uses the techniques of immediate feedback and positive reinforcement so that 
students can improve their math skills while playing these games: 

Hanginn— A little man is walking up the steps to the hangman 's noose. But YOU can save him by answering 
the decimal math problems posed by the computer. Correct answers will move Ihe man down Ihe steps and 
cheat the hangman, 

SpdlUnder — You are a magician battling a computerized wizard. In order to cast death clouds, Titeballs and 
other magic spells on him, you must correctly answer problems involving fractions. 

Whole Space— Pilot your spacecraft to attack the enemy planet. Each lime you giveaeorrecl answer lothe 
whole number problems, you can move your ship or fire. But for every wrong answer, the enemy gets a 
chance to fire at you. 

Car Jump— Make your slum cat jump the ramps. Each correct answer will increase the number of buses your 
car must jump over. These problems involve calculating the areas of different geometric figures. 
Robot Duel— Fire your laser at the computer's robot. If you give the correct answer lo problems on calculat- 
ing volumes, your robot can shoot at his opponent. If you give the wrong answer, your shield power will be 
depleted and the computer's robot can shoot at yours. 

Sub Attack — Pracliceusingpercentagesasyoumaneuver your sub into the harbor. A correcE answer lets you 
move your sub and fire at the enemy HecE, 

All of these programs run in Applesofi BASIC, except Whole Space, which requires Integer BASIC, 
Onter No. 0160AD SI9.9S 




Paddle Fun 



This new Apple disk package requires a steady eye and a quick hand at the game paddles! II includes: 
Invaders- You musl destroy an invading fleet of 55 flying saucers while dodging the carpel of bombs ihey 
drop. Your bomb shelters will help you — for a while. Our version of a well known arcade game! Requires Ap- 
plesoft in ROM. 

Howllzer- This is a one or two person game in which you must fire upon anoiher howitzer position. This pro- 
gram is written in HIGH -RESOLUTION graphics using differenl terrain and wind conditions each round to 
make this a demanding game. Thedifilcully level can be altered to suit Ihe abilitvof the players. Requires Ap- 
plesoft in ROM, 

Space Wars- This program has three pans: (l)Two flying saucers meet in laser combat— for two players. |2) 
two saucers compete to see which can shooi out Ihe most stars— for two players, and |3] one saucer shoots the 
slars m order to gel a higher rank— for one player only. Requires Applesoft. 

Golf — Wheiher you win or lose, you're bound 10 have fun on our 18 hole Apple golf course. Choose your 
club and your direction and hope to avoid the sandtraps. Losing loo many strokes in the water hazards? You 
can always increase your handicap. Get off Ihe tee and onto the green with Apple Golf. Requires Applesoft, 

The minimum system requirement for (his package is an Apple II or Apple II Plus computer wilh 32KQf 
memory and one minidisk drive. 
Order No, 0163 AD $19,95 



Skybombers 



Instant Software 



Two nations, sepwaied by The Big Green Moun- 
tain, are in mortal combat! Because of Ihe terrain, 
their's is an aerial war — a war of SKYBOMBERS! 

In this two-player game, you and your opponent 
command opposing fleets of fighter-bombers armed 
wilh bombs and missiles. Your orders? Fly over the 
mountain and bomb Ihe enemy blockhouse iniodusi! 

Flying a bombing mission over thai innocent look- 
ing mounlain is no milk run. The opposition's aircraft 
can fire missiles ai you or you may even be destroyed 
by the bombs as Ihey drop. Desperate pilots may even 
ram your plane or plunge into your blockhouse, sui- 
cidally. 

Flight personnel are someiimes forced to parachute 
from badly damaged aircraft. Asihcy float helplessly 
to earth, they become targets for enemy missiles. 

The greater the damage you deal lo your enemy, ihe 
higher your score, which is constantly updated at the 
bottom of Ihe display screen. 

The sounds of battle, from exploding bombs lo the 
pathetic screams from wounded parachutists, remind 
each micro-commander of his bounden duly. Press 
On, SKYBOMBERS— Press On! 

Minimum system requirements: An Apple II or Ap- 
ple 11 Plus, wilh 32K RAM, one disk drive and game 
paddles. 
Order No. KTIAD (disk-based vmsion) S19.95 




•A trademark of Appro Compuler Inc. 

PETERBOROUGH, N.H. 03458 
603-924-7296 
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Apple* Software 



From Instant Software 



■Santa Paravia and Fiumaccio 



Buon giorno, signore! 

Welcome to the province of Santa Paravia. 
As your steward, I hope you will enjoy your 
reign here. I feel sure that you will find it, shall 
we say, profitable. 

Perhaps 1 should acquaint you wilh our lUtle domain. It a not a 
weailhy area, signore, bul richeiand glory ars possible for one who 
is aware of political reahlies. These realities include your serfs. They 
eonstanily request more food from your grain reserves, grain Ihal 
could be sold instead for gold tfonns. And should your juslice 
become a trifle harsh, they will flee lo other lands. 

Yet another concern is the weather, if it i,^ good, so is the harvest. 
But the rats may eat much of out surplus and we have had years of 
drouehi when famine threatened our population. 

Certainly, the administration of a growing city-state will require 
tax revenues. And where better to gather such funds than the local 
marketplaces and mills? Vou may find it necessary to increase euslom duties or tax 
the incomes of the merchants and nobles. Whatever you do, there will be far- 
reaching consequences. . and, perhaps, an elevation of your noble tide. 

Your standing will surely be enhanced by building a new palace or a magnificent 
calledrale. You will do well to increase your landholdings, if you alio equip a few 
unitsof soldiers. There IS. alas, no small need for soldiery here, for the unscrupulous 
Baron Peppone may invade you at any time. 

To measure your progress, the official cartographer will draw you a mu^pa. From 




it.youcansechowmuchlandyouhoid, how much of ills under the plow and how 
adequate your defenses arc. We are unique in that here, [he map IS the territory. 
Urusithat I have been of help, signore. Hook forward to the day when i may ad- 
dress you a( His Royal Highness, ECing of Santa Paravia. Buonaforlunaor, as you 
say. -Good luck". For the Apple 4aK. 
Order No. 0n4A S9.95 (easselie veision). 
Order No. 0229AD S19.9S (disk version). 



TO SEE YOUR LOCAL INSTANT SOFTWARE DEALER OR USE THE ORDER FORM BELOW 

ORDER 



-^ 



For Fast aA 

se-ice^ Toll-Free 
1-800-258-5473 



Apple Cassettes 

0018A Golf I7-35 

0025A Mimic S7.95 

(XMOA Bowling/Trilogy i''.95 

0O73A Math Tutor I S7.93 

D079A Oil Tycoon S9.9S 

IX)80A Sahara Warriors S7.95 

IX)88A Accounting Assistant S7.95 

IX)94A Mortgage w/Prepayment Option/ 

Financier S7.95 

0096A Space Wars S7.95 

009SA Math Tutor II 17.95 

OH'tA Santa Paravia and Fiumaccio $9,95 

0I48A Air Flight Simulation S9.95 

We Guarantee It! 

_^)£' Guarantee '^(,.:^^ 

OUR PROCIKAMS A RL Gl.) ARANTTi-O 
TO BF yllALlTY PRODUCTS. IF MOT 
COMPTKTFTY SATISFIhD VOII MAY 
RFTURN llil' PROCRAM WITHIN M 
DAYS AtRTDIT OR RKPTAi: TMFNT 
WITL 131- WILLINGIY fllVKN FOR 
ANY Rl ASON. 



^ ^ ^ ^ ^ ^ ^ 109' 



Name 



Address 
City 



, Stale - 



.Zlp- 



O Cbeck □ Money Order D VISA U AMEX P Master Cliarge 
Ca'O No Ejc- Oats 




Order your Instant Software todayl 



Program name 



Sbipping and handling 



Instant Software Inc 

Peterborough, N.H, 03458 
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UsiNq AtarI's 
CouNTdowN Timers 



The Atari Personal Computer 
System maintains five count- 
down timers, updated at a 
1/60th-second rate. Although 
these timers were designed for 
use by the Atari Operating 
System, they may also be used 
by BASIC and Assembly 
language programs. 



Mike Dougherty 

7659 West Fremont Ave, 

Littleton, Colorado 80123 



The Atari Personal Computing System 
must perform several functions in order 
to maintain the interactive nature of its 
operating system. These functions, de- 
tailed in the two publications, Ataii 
Personal Computer System Operating 
System User's Manual and Hardware 
M anua l, available from Atari, include: 

updating the real-time clock buffer 

updating the attract mode byte 

updating the software countdown 
timers 

updating the color, joystick, paddle, 
and lightpen shadow registers 

turning off the keyboard speaker 

performing the software key repeat 
function 



Llsllng 1 



1 REM 

2 REM 

3 REM by Mike Dougherty 

4 REM 

5 REM USING fl VBLfiNK INTERVAL TIMER 

6 REM TO IMPLIMENT A STOPWATCH. 

7 REM JOYSTICK 1 IS USED AS THE 

8 REM STOPWATCH TRIGGER. 
■? REM 

10 TIME=0!BRAPHICS 0:PDKE 752. 1 : SETCOLOR 2,3,4 
20 POSITIO^ 5,2!FRINT 



lMaa=**!^^ia me:^aMnt^ ftiaiM 



30 POSITION 5,3:PRIWT 

40 POSITION 5.4:PRINT 

50 POSITION S.SiPRINT 

60 POSITION 5,6:PRINT 

70 POSITION 5,7:PRINT 

80 POSITION I3,10:PRINr " IHgeUliSi " 

■?0 IF STRIG<0)=0 THEN GOTO 90 

100 IF STRIG<0)=1 THEN GOTO 100 

200 REM 

201 REM MAIN LOOP: 

202 REM 

203 REM _DDUNTIL TRIGGER IS RELEASED 

204 REM WAIT FOR TIMEOUT 

205 REM RESTART TIMMER 

206 REM OUTPUT SOUND BEEP, TIME 

207 REM UPDATE TIME FOR NEXT LOOP 

20B REM „ENDDD 

209 REM 

210 IF PEEK(554I<>0 THEN GOTO 210 
220 POKE 540.6 

230 L0UD=10--LDUD:50UND 0, 121 , 10, LOUD 

240 POSITION 16,I2!FRINT " "jPOSITIDN 16,I2:PRINT TIME/10 

250 TIME=TIME+1 

260 IF STRI6(0)=O THEN GOTO 200 

1000 REM 

1001 REM SHUT DOWN STOPWATCH, 

1002 REM WAIT FDR USER TO RESTART 

1003 REM 

1010 SOUND D.O,O,0 

1020 POSITION 5,14:PRINT 

10?0 PESSITION 5.14:PRINT "^^MBH 

1040 IF STRIG(0)=1 THEN GOTO 1020 

1050 GOTO 10 



Table 1; Atari Countdown Timer Addresses 



Timer 
CDTMx 

CDTMl 
CDTM2 
CDTM3 
CDTM4 
CDTM5 



Countdown Value 
CDTMVx 

536. ($02181 
538. ($021A| 
540. ($021C| 
542. |$021E} 
544, ($02201 



Countdown Flag 
CDTMFx 



554. |$022A| 
556. ($022Cj 
558. ($022E) 



Countdown Completion Address 
CDTMAx 

550. [$0226] 
552. ($02281 



where x denotes the timer number 1, 2, 3, 4, or 5 
Note: the real-time clock uses the three bytes 18., 19., and 20. 
($0012-$0014| with the low order stored last. 
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To operate properly, these functions 
must be executed at regular and fre- 
quent intervals. However, the time re- 
quired to perform these functions 
should not degrade the video output of 
the computer. Atari solved this prob- 
lem by performing the above functions 
while the video output was blanked 
and the CRT gun was vertically return- 
ing for the start of the next video scan. 
Because of this, the routine performing 
these functions was called VBLANK. 
VBLANK is inititated by an interrupt 
generated at the end of a complete 
video scan, each l/60th of a second. 
This interrupt forms the time base of 
the real-time clock buffer and the inter- 
val timers — subjects of this article. 

In all, the Atari Personal Computer 
System maintains five coimtdown timers, 
CDTMl, CDTM2, CDTM3, CDTM4, 
and CDTM5, If one of these 16-bit 
timers is non-zero, it is decremented 
(counted down) at a I/60th of a second 
rate until zero, one count per VBLANK 
interrupt. While the three countdown 
timers CDTM3, CDTM4, or CDTM5, 
count down to zero, a corresponding 
byte flag, CDTMF3, CDTMP4, or 
CDTMF5, is set to the value of 255 
($FF), When one of these timers reaches 
zero, the corresponding flag is set to 
zero. The two remaining countdown 
timers, CDTMl and CDTM2, do not 
set any software flags. Instead, when 
one of these two timers counts down to 
zero, a call is made to an assembly 
language subroutine. 

The address of this assembly lan- 
guage subroutine is located in RAM and 
may be modified to point to an ar- 
bitrary user subroutine. Thus CDTM3, 
CDTM4, and CDTM5, allow for the 
timing of events by monitoring soft- 
ware flags, while CDTMl and CDTM2 
allow a user-completion assembly lan- 
guage subroutine to be executed after a 
time period ranging from l/6nch of a 
second to 65535/60th of a second. Table 
1 gives the specific memory locations 
and Atari labels for the five timers. 



Note that these timers were ori- 
ginally designed with the Atari oper- 
ating system in mind. Various routines 
in the Central Input and Output Com- 
ponent of the operating system |CIO) 
use the timers to measure data trans- 
mission to and from peripheral devices. 
However, for memory- based applica- 
tions, no apparent conflicts in count- 
down timer usage have been observed. 
In addition, there are times when the 
operating system is executing time 
critical code — times when the 
VBLANK routine is cut short. During 



Listing 2 



1 REM K 

2 REM 

3 REM by Mike Doughprty 

4 REM 

5 REM USih^O THE VBLRHK REAL TIME 

6 REM CLOCK TO rMPLEHEHT fH STOPWATCH. 

7 REM JOYSTICK 1 IS USED AS THE 
a REM STOPWATCH TRIBQEB. 

? REM 

10 TIME=0:GRAPHICS OsPOKE 7 57. 1 ! SETCOLOR 2,3,4 



20 POSITION 5, 

30 POSITION 5.3:PRINT 

40 POSITION 5,4:PRINT 

50 POSITION 5.5:PR1NT 

to POSITION 5.6!PRINT "I 

70 POSITION 5,7:PRINT "I 

SO POSITIDN 13,10:PRINT 






70 IF STR1BI0)=0 THEN BOTO 90 

100 IF STRIB(0)=I THEN GOTO 100 

110 T=PEEK''20:j*6!IF T>255 THEII T^T-256 

200 REM 

701 REM MAIN LOOP: 

202 REM 

203 REM _DOUNTIL TRIGGER IS RELEASED 

204 REM MHIT FOR RTC TO REACH T 

205 REM COMPUTE NEXT VALUE OF T 

206 REM COUNT THIS DELAV 

207 REM OUTPUT SOUND BEEP. TIME 

20E REM _ENDDO 

209 REM 

210 IF PEEK'.20:i<>T THEN GOTO 210 
220 T-T+SilF T>2S5 THEN T=T-35t; 
230 TIME=TIfie+l 

240 L0UD=10-L0UD!SDUND O. 121 . 10, LOUD 

250 POSITION 16,12:PR1NT ■■ "iPOSITlDN 16, 12:PRINT TIME/10 

260 IF STRIG(0)'^0 THEN SOTO 200 

JOOO REM 

iOOl REM SHUT DOWN STOPWATCH. 

1002 REM WAIT FOR USER TO RESTART 

1003 REM 

1010 SOUND 0.0.0,0 

1020 POSITION 5,14:PRINT " ^aa^aBtatigfla^l'BLi I' llil ll^ " 

103O POSITION 5,14:PRINT "■■■^■■l^^^^^i^^^^^i^B" 

1040 IF STR[G<0)=1 THEN GOTO 1020 

1050 GOTO 10 



such an intermpt, only the real-time 
clock and CDTMl are updated, with 
the rest of the countdown timers skip- 
ped until the next VBLANK interrupt. 
Thus it is possible for the rest of the 
countdown timers to occasionally miss 
a "tick," Since the amount of time 
critical code in the operating system is 
small, missing an occasional l/60th of 
a second tick is usually tolerable for 
real-time applications. 



Listing 1 gives a simple application 
of the software flag countdown timer, 
CDTM3, [CDTM4 or CDTM5 could 
have been used equally well,] In this 
application, CDTM3 is used to imple- 
ment a stopwatch accurate to 1/lOth of 
a second (with only an occasional 
l/60th of a second VBLANK tick being 
missed due to time critical code). 
Listing 1 uses the trigger of joystick 1 
|TRIGGER(01) to control the starting 
and stopping of the stopwatch. Since 
the timing is being performed auto- 



matically by VBLANK in the back- 
ground, the program STOPWATCH 
does not need to worry about accuracy. 
Once the countdown timer is started 
with a value of 6, STOPWATCH has up 
to 1/lOth of a second to display the 
time, set the sound voices, and any 
other desired "bells and whistles," 
This allows STOPWATCH consider- 
able freedom to perform other func- 
tions while the timer is still maintain- 
ing accurate time. 

For applications that cannot toler- 
ate the occasional missing of a l/60th 
of a second VBLANK tick, the real liine 
clock buffer may be used. The real-time 
clock buffer is a three-byte, upward- 
counting timer, incremented with every 
VBLANK intermpt, time critical code 
or not. Since other portions of the 
operating system utilize the real-time 
clock, listing 2 implements the stop- 
watch without modifying this real- 
time clock value. This version of 
STOPWATCH will not lose time. 
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Listing 3 

1 REM DEMDNSTRflTION OF THE BfiCKGRDUND 

2 REM PROCESSING CflPflEILITIES OF THE 

3 REM ATARI COMPUTER SYSTEM. 

4 REM COUNTDOWN TJMMER 1 WILL BE USED 

5 REM TO TRIGGER fl BACKGROUND ROUTINE 

6 REM THAT CHANSES THE SOUND OUTPUT. 

7 REM ONCE STARTED, THIS ROUTINE DDES 
S REM NOT REQUIRE ATTENTION FROM THE 

9 REM USER. LISTINGS, EDITING. ETC. 

10 HEM MAV BE PERFORMED WHILE THE 

11 REM BACKGROUND IS RUNNING — STOP 

12 REM By HITTING SYSTEM RESET. 

13 REM 

14 REM by Mike Dougherty 

15 REM 

1000 REM 

1001 REM 

1002 REM INITIALIZE THE BACKGROUND 

1003 REM CODE. POKING INTO PAGE 6. 

1004 REM 

lOIO DIM ByTE»<2> 
1020 READ ADDRESS 

1030 READ BYTEt:IF BYTE*="*«" THEN 20O0 

1040 BYTE=0 

1050 V=ASC(BYTEI(m-48: IF V>9 THEN V=V-7 

1O60 BYTE=BYTE*lt+V 

1070 V=ASC<BYTE*(2) )-4e: IF y>9 THEN V=V-7 

lOSO EYTE=BYTE*16+V 

1090 POKE ADDRESS. BYTE 

1100 ADDRESS=ADDRESS+1 

1110 GOTO 1030 

1500 DATA 1536 



1510 DATA A9,0B 
1520 DATA BD.26,02 
1530 DATA A9,06 
1540 DATA aD,27,02 
1550 DATA 6S 
1560 DATA AD,OA.D2 
1570 DATA BD,00,D2 
1580 DATA A9,fl8 
1590 DATA SD,01,D2 
1600 DATA AD,0A,D2 
1610 DATA 4A 
1612 DATA 4A 
1614 DATA 4A 
1616 DATA 4A 
16ia DATA 09,01 
1620 DATA SD, IB, 02 
1630 DATA 60 
1640 DATA «* 
1650 REM 

2000 REM 

2001 REM 

2002 REM THE FUNCTION IS IN PROTECTED 

2003 REM MEMORY — PRINT OUT THE 

2004 REM APPROPRIATE USR COMMAND AND 

2005 REM POSITION THE CURSOR SO THAT 

2006 REM ONLY A CARRIAGE RETURN IS 

2007 REM REQUIRED — DO NOT LET THE 

2008 REM USER USR TO THE WRONG PLACE ' 

2009 REM 

2010 GRAPHICS O 

2020 PRINT "HIT RETtiRN TO START THE MUSIC 

2030 PRINT 

2040 PRINT "X=USR(1536) '■ 

2050 POSITION 0,0 



Listing 4 : Countdown Timer 1 Completion Routine 



•-to6oo 



TSgS SPACE m BASIC 



IUIID0H-$D20A 
.UDn-tD200 
,UI1C1-$D201 



USER RoirrraB to chahge voice #o op basic as 

A MCKGBOUMl TASK. COUNT DODH TIKEB 1 IS USED. 
DBFINe HAKDNAIIE RKISTIBSi 



ATARI HAKDHASE RANDOM HUHBSR GBNERATOB 

VOICE PRBaUEHCr REGISTER 

VOICB NOISE AND LOUDNESS RECISTBR 



DEFINE COUNT DOWN TIMER I 



CD'niAl-S02Z6 
CDTWVl-tOalS 



COBPiETICHf ROUTINE ADDRESS 
COUNT DOWN VALUE ADDRESS 



A9 OB INIT 


ISA 


WIMEBSjFJ' 


80 Z6 02 


5TA 


CDTHAt 


A9 06 


IDA 


#TI|i!KR/256 


80 27 02 


STA 


CDTHAl+1 


66 


FLA 





AD QA M TWER IDA 


RANDOM 


SD 00 D2 


STA 


AUDn 


A9 AS 


UU 


#tAe 


8d 01 D2 


STA 


AUDCt 


AD OA DZ 


ISA 


RANDOM 


liK 


T3R 


A 


ItA 


LSR 


A 


U 


ISR 


A 


In 


laa 


A 


09 01 


ORA 


#toi 


SD 18 OZ 


STA 


cxTim 


60 


RTS 
.END 





INITlALIZa COKPI*riOT ROUTINE ADDBSSS AND FALL 
THROUGH TO ROUTINE TO START IT AU.. THE INITIALIZATICM 
13 CALIED ASl USR(1536). TOE COMPiaTICW ROUTINE 
IS CALIKD BT VBUNK AS A NORMAL SUBBOUTBE. 



10 Brra OF ADDRISS 

TO CDTM GlWPWnOH ADDR 

HI fins OP ADDRESS 

COMPHnCM ADDHZSS DHnALEH) 

DROP # OF USR ASCUMEITS 



COUNT DOWN TIMER 1 COMPIZTIOH HOUTINB — SUffH 

HODIFY THE SOUND OF VOICE TO PROVE THAT THIS 

WAS SJEGUITO, tSD RESTART TDOB FOR THE NEXT CHANGE, 



GET A RANDOM EYTB 

SET AS PRSaUHICr OF VOICE 

TCHB-$OAl lOUDHESS-toa 

VOICE CCBTHOL RIGISTKl 

BYT» FOR TIMER DURATICSf 

REDUCE TO 0-15 ~ SOUNDS IBTTSR 



HAKE CERTAIN TIME AT IXA8T A OR 
TIME OF ZERO 13 TROUBIZ 
UNTIL NEIT CDTMl COMPUTICM 



The first two countdown timers," 
CDTMl and CDTM2, allow a much 
more sophisticated timer control. To 
make use of this sophistication, assem- 
bly language programming is required. 
(The following discussion applies to 
CDTMl as well as CDTMl, with an 
appropriate change in addresses.) 



While VBLANK is servicing its in- 
terrupt, CDTMl is checked for a non- 
zero value. If CDTMl is non-zero, then 
CDTM VI is decremented (counted 
down] by one. If CDTMl goes to zero 
after being decremented, then the 
subroutine JTIMRl is called. JTIMRl 
simply jumps indirectly to the address 
stored at CDTMAi, the CDTMl com- 
pletion routine. Thus to use CDTMl, 
the following steps must be performed; 



POKE an assembly language sub- 
routine into memory. This sub- 
routine should perform a normai 
return via the RTS instruction. 

POKE the starting address (low, 
high) into CDTMAI and 
CDTMAI + 1 

start the timer by POKEing a value 
into CDTM VI 

continue to execute the BASIC 
program. 

(Continued on page 82) 



40 



MICRO - The 6502/6809 Journal 



No. 45 - February 1982 




McO^J 



ov 



s»' 



NEC 

Microcomputer 




rC-SOOlA 33K Compulei 'i'iW 

PC-B012A I. O Unit w/32K RAM CALL 

PC-80I3A D.ial MinlDlili Drive Unit CALL 

PC-8001 MjlllC.idM3re{FD1/0»32K) CA^ 

CP/M 2.2 OpetaHiig Svilcm For NEC. - 12^ 

WmilSlai conflgiiTrd foi NEC ^'9 

Slip«TCalc co*iFlqut*d lor NEC "--all 

NEC Woidpiocessor ft Atcountin^ Softwaie CAU, 

Manv mote softwai^ packages and lanBUages; 
iPascal. Fonrao, CoboL etcl nit available tonliBU'*'! '«>' 
lh» NEC 800 1 A Computer. 
Plea«« tall ot witie for a piodurl price Mst. 

A ATARI 

--^jmnffliUBiiiiiiiiiiiBHHWiiiraroi' \ 



.349 



ATARI 800 16K 

CALL FOR BEST PRICE 

Atari «0i«/I6K 

410 PTogiam Becotder. - ^^ 

810l>l«k Dilve "■ „o 

SIS SO col, 7.8 Dot matrix Impact prlnlei ■«'>y 

B2I 40 col. Quiel Theimal Piinlet MS 

BSD Itilerface Module '59 

Atari WKRaniMuLlule -Jj 

Anion Ramciam 32K Module 'of 

Asleroidb. MI««lJe Cuminand and Star Raiders . . .35eq. 
SPECMl ATAHI CATALOG AVAILABLE 



Video Monitars 

Aindek/L<.edell VId™ 100 12" BSW I I'l 

Amdelc/Leeden Video lOOG 12" Green Phosphet. .179 

Anideli (HIlBcliI) 13' Color •/audio output 389 

NEC 12'GteenPhoipherDl6plai,JB1201M CAU- 

NEC 12" LoResColor Display CALL 

NEC 12" HIHesRGBCnlot Display CALL 

Sanvo 9'' BBW Display '«= 

Sanyo 9" Green Phoapher Display (.ALL 

Sanyo 12- BftW Display **' 

Sanyo 12" Green Phosphtr Display ita 

Sanyo 13" ColoT Display «' 

Zenllh II' Green Phoapher Display J^Ml^l 149 



lgS-100 

California Computer 
Systems 

Floppy Disk Controller $369 

64K Dynamic Ram Board, 200ns S499 
Z-80 CPU board ™ / monitor ROM S269 

I6K Static memory board. ZOOns 36' 

32K Static memory board, 200n5 "^ 

S-IDO l2.Stol Malnlranre "= 

IPoll Serial lnlerfar:e 29S 

Z-PoTt Serial '2-PDrt Parallel Interface iVy 

4-Port Paral lel I n ieita ce M9 

H commodore 



computer 

'-Auinonzed Dealer 





Personal Computer 

Co lot ' Sound ■ Graphics 
Call oi wilte for more info, 
Disfc driees ai/ollable soon! 



$259 




ZEMTH 

12" 
GREEN 

$149 



Printers 
Silentype 

w Apple II Inierfacc 

$349 

Epson 

MX-SO or 

MX-80 FT 

CALL 

AnadeK 9501 w/2K BuKer 1»9 

C. llohSlarwrller 25CPSdal5yu/hee1 I4W 

C liohSla™iritBr4SCPSdalsyi*liBel 1M9 

Epson MX-70 CALL 

Epson MX-aO & MX-80 F/T CALL 

Epson MX-1I)0 CALL 

NEC a023 Impact Dot Matrix .6*& 

NEC Splni^rltera {Latest models} *^!i 

Pap^r Ilger IDS 445G uj /graphics W 

PapeiTl5erlDS-460C».'gTBpliic» 949 

Papei7iae'IBS-560G w/flraphic8 1249 

Silentype Prtnleri*/ Apple Interface 349 

Qume Sprlnl Dalsynheels (Latest modelsl CALL 




APPLE n PLUS 

16K's, 48K'S, 64kV 

"48K Ap|>lp vUh 16K HdmOnaid 

CALL FOR 
BEST PRICES 

APPLE 

DISK 

DRIVES 

DRIVE ONLY OR 

W/CONT 

& DOS 3.3 

CALL FOR PRICES 

SPECIAL APPLE CATALOG AVAILABLE 



16K RAMBOARD by ConComp 
for Apple II Computers 



ORDER TOLL FREE 

800-854-6654 

In California and 
outside continental U.S. 

(714) 698-8088 

Telex 695-000 Beta CCMO 



FOR ONLY 



$129'5 




OriJ.ning inloTin,ili"n Phrtnt ■J^^J^r^ ij.,ir»:] VIbA M^STt-IHtAlfU 
AMEHrC AN EXPRESS DINEH S CLUB CARTtBLANCHE bai^l. 
mie Ijfltiiler. En^i?!^ Or ceruhv^ cSsck nionev o'dvr. Oi p^rvmal 
flie£l.1alkiv^li!ntlay!,loclifOrl UnkiE prepflKl wMh cash. pleawrtJJ 
5't lor ^hupping harKlling and irHjrflnce. (minimum ^ LX» Cahior- 
Hia.eijdprCiflddfa'tMleslfl^ W^acceplCODs OtM^. In^iluDUni 
rtnd orpfiiflltr^ns ph^iw W^d Inr a vmHV (jutrtftlinn All i-quipjuenl 
Ti Eubpcl lo prUV (hiange iiTid flvfldaljiHy wilhtiui notice All eyui^n 
mtfru 1^ n*i" and compktL^ u-ifh nionulDCfur*f"E warrarHV Lu*uallv '"• 
riisvil ShDiwruom prbCtfE ma^- (H'ln fiom mati ord" prKEt^ 



Send Orders To: 

@©[i[]§Da[jffl©[? 



Mail Order 



8314 Parkway Drive 
La Mesa, Calif. 92041 



Speed 
Power 
Efficiency 



for 



OSI 

65D3 SYSTEMS 



FBASIC: BASIC compiler 



$155/$10 



FAST elficient machine code written 
with the ease of BASIC. 
SPEED-optimized, native-code compiler. 
INTEGER subset of OSI-supplied BAStC. 
DISK based: No problem with size of 
source or object files, 
EXTENSIONS to BASIC: 

- Simple interface to system hardware 
and software. 

- Direct access to 6502 registers. 

- Array initialtzation. 

- Optional absolute array locations. 

- WHILE and otfier slructures. 

- Simple technique for combining 
compiler and Interpreter advantages. 

FULL system: utilities (plus source), 
manual, and many useful examples. 



R-EDIT: Edit any program $40 

or text with ease! 

• FULL CURSOR control. Edit anywhere on 
the screen. 

• INSERT, replace, add, delete. 

• ONE KEY stroke and you're editing. 

• BASIC, assembler, etc, can all be 
edited witfiout reloading editor 

• RAM-resident: Always ready! 

• SYSGEN relocates R-EDIT and customizes. 



SPUL-65: Printer spooler $95/$10 
Virtual Indirect File 

• STOP WAITING for your printer! 

• PROCESS words, write prog rams... a) I 
while printing! 

• QUEUE lets you pile on print jobs. 

• MULTIPLE COPIES printed with top and 
bottom page margins, 

• SYSGEN relocates SPUL65 and gives 
extensive customization, 

• INDIRECT FILE commands produce disk 
files giving you; 

- A virtually unlimited temporary file. 

- A link between incompatible files; 
for example, use WP-2 for extensive 
BASIC editing. 

- Ability to merge multiple program 
segments. 



XREF: BASIC Cross Referencer $25 

• TABULATES: 

- Referenced line numbers. 

- Variable names (numeric, string, 
array). 

- Defined functions. 

• FAST machine language program. 

• DISK based: Handles large BASIC source 
files on any drive. 



^ 




fwore 



CP/MtoOSI Disk Translation 

Frustrated by all those good CPIM disks 
that won't run on your OSI CP/M system? 
It's thai special OSI disk format! And 
we can fix tfiat. Just send us your disK 
$15, and you'll soon have an OS) compat- 
ible disk. 



Data Resource Corporation 

Suite 204 

1040 Lunaai Street 

Kailua, HI 96734 (8081261-2012 



Manual orders applied to software 
purchases. Programs supplied ort 8-in, 
single-density, single-sided disks. 
Hawaii residents add 4% tax. 



Speedy Routine 
for CI P Joystick 



Take the "slow motion" out o1 
your real-time games with this 
speedy Joystick Input routine for 
your C1P. Application driver 
routines are also provided. 



John Krout 
5108 N. 23rd Rd. 
Arlington, Virginia 22207 



Before I bought my computer, I used to 
spend a lot of pocket change and time in 
the local video arcades. Now I keep the 
change and invest the time in attempts 
to surpass the latest commercial amuse- 
ment electronics in software at hoine. 
Like many computer users, I enjoy 
developing realtime graphics games 
almost as much as playing them. 

A major problem with games that 
use interpretive BASIC is execution 
speed. Everyone recognizes that a faster 
game is a greater challenge to the player. 
BASIC on the Challenger IP stands up 
well in speed comparisons with any 
other machine on the market at a 
similar price. But BASIC software, 
which juggles a number of moving 
elements on screen, often decelerates 
past the threshold of boredom. 

joysticks are the usual input devices 
for the realtime games 1 develop. A trig- 
ger joystick such as those used in the 
Atari cartridge video game can be easily 
connected to the keyboard port of the 
Challenger IP- Many software vendors 
offer inexpensive instmctions for this 
hardware modification. To the com- 
puter, each joystick looks as if it were a 
row of keys, and the status of its triggers 
can be sensed by examining a keyboard 
row as described in the Challenger IP 
documentation. 

Listing 1 is an example of a joystick 
examining routme in BASIC. The value 
of X, set in line 10, selects the row of 
keys scanned and, therefore, the 
joystick used. In this case, numeral keys 



Listing 1 




10 X=127 




20 POKE 


530,1 


7.0 FDR 1 


=^1 TO 2000 


40 FOi-;E 


5703B, X: 


P=PEEK(570SS) 1 


30 NEXT 




60 POKE 


530.0 


Listing 2 




5 0222 


START *=«222 


10 0222 


203202 J!3R *232 


20 0225 


A56F LDA 175 


30 0227 


SDOODF STA 57083 


40 022A 


ACOODF LDV 570SS 


50 022D 


A900 LDA ttO 


60 022F 


6cosyo J MP o> 


70 0232 


feC0600 JMF (t) 


Listing 3 




10 DATA 


32,50,2.165,175, 




141,0,223 


20 DATA 


172.0,223, 169,0, 




108,8.0 


30 DATA 


1 OS , 6 , <1 


40 FOR 


1=1 TO 19 


50 READ 


A: POKE 1+545, A 


60 NEXT 




70 POKE 


11,34: POKE 12,2 


Listing 4 




10 X^l. 


Z7 


30 FOR 


I-l TO 2000 


40 P=USR(X) 


50 NEXT 



1 through 7 are scarmed. The POKE in 
line 20 disables the BASIC overhead 
routine which scans the keyboard for a 
Control C program break by the player. 
Line 40 POKEs X to the keyboard port at 
location 57088, and sets the variable P 
equal to the result value PEEKed at the 
same location. The value of P reflects 
which keys, if any, have been depressed, 
or joystick triggers closed, by the player 
when line 40 is executed. Lines 30 and 
50 set up a loop which repeats the 
keyboard scan in line 40 for execution 
speed comparison, and line 60 re- 
enables the Control C routine. 



Listing 2 is an assembly language 
subroutine which may be called from 
BASIC via the USR(X| function to 
replace the POKE and PEEK in line 40 of 
listing I . This routine accomplishes four 
steps; transferring the value of the argu- 
ment variable X from BASIC, POKEing 
the argument to the keyboard port, 
PEEKing at the keyboard port for the 
result value, and transferring the result 
value back to BASIC, It does all of this 
without the need for BASIC POKEs to 
tum off and on the Control C routine. 

Lines 10 and 70 of listmg 2 transfer 
the argument value from BASIC. This is 
done by calling the routine in ROM to 
which the address in locations 6 and 7 
point. Since the )SR opcode does not in- 
clude an indirect addressing option, line 
10 calls line 70, which is simply a jump 
using indirect addressing to get to the 
ROM routine. When the processor en- 
counters an RTS opcode in ROM, it will 
resume execution at line 20, 

The ROM routine places the argu- 
ment value in locations 174 and 175. 
The format is a 15-bit integer with a sign 
bit. This means that arguments greater 
than 32767 or less than -32768 will 
generate an error code in BASIC, The 
routine stores the sign bit and most sig- 
nificant 7 bits in location 174, and the 
least significant 8 bits in location 175. 

Since the argument value for the 
keyboard port ranges from to 255, only 
the least significant 8 bits of the argu- 
ment are needed by the routine of listing 
2 for further use. Therefore, line 20 
loads the data in location 175 to the ac- 
cumulator, and line 30 stores that value 
from the accumtdator to the keyboard 
port. The value placed in location 174 
by the ROM routine is ignored. 

To return a result value to BASIC, 
another ROM routine is called via the 
indirect jump in line 60, This routine 
treats the data in index register Y as the 
least significant 8 bits, and the data in 
the accumulator as the sign bit plus the 
most significant 7 bits, of the integer 
value to be returned. Since the result in 
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this case also ranges from to 255, line 
40 loads the resuh value from the 
keyboard port to index register Y, and 
line 50 loads a zero into the accumulacor 
prior to the jump. When the processor 
again encounters an RTS opcode in 
ROM, it will return directly to the 
BASIC program, so no other RTS is 
necessary in listing 2. 

Listing 3, a BASIC loader, places the 
decimal values (in DATA statements] of 
the assembled opcodes of listing 2 into 
memory beginning at location 546. This 
is the start of the unused memory space 
which ends at location 767. However, 
listing 3 could place the routine else- 
where in memory if space is initially 
reserved for it. The top of memory can 
be reserved for the routine by POKEing 
the start address of the reservation into 
locations 133 and 134 in low-high for- 
mat. The high part is the address divided 
by 256, and the low part is the re- 
mainder. For instance, to reserve 
memory starting at location 8000: 

5 POKE 133,64: POKE 134,31- 
POKE 129,64: POKE 130,31 

will do the trick. Keep in mind that 
listing 2 is not relocatable, so the second 
and third values of data will have to be 
changed to match the new address of 

IMP [6|. 



Listing 5 






10 


DflTfi 32,rJ0,2. 165. 175. 


141 .0.223 




20 


DATA 172,0,223. 169,0, 


108. B.O 




30 


DATA 1 OB, 6,0 






40 


FOR 1=1 TO 19 






50 


READ A: POKE: H-543.A 






60 


NEXT 






70 


POKE 11,34: POKE 12,2 






SO 


FOP 1=1 TO 32: PRINT: 


NEXT 




90 


TNPUT"start srtdrsss"; 


X: PRINT 




95 


PRINT" addre!=^: data": 


PRINT 




.L'i': 


Y=PEEK f y. J 






105 


ZS=STR¥ ( X 1 + " ;; " -i-STRS ( 


Y>+" ": L=LEN<Z5) 




111. 


FOR 1=1 TO L: PORE 5 


4119+1. flSC(MID$ (Z«, 


1,1)): NEXT 


115 


FDF^ 1 = 1 TO 250: NEXT 






in: 


P=-USR(127): IF P=255 


GOTO 120: REM stick 


c^nl-.erGd 


125 


IF Y^255 GOTO 140 






130 


IF P=19i THEN Y=Y■^■1 : 


PDhiEE: X,Y: GOTO inS: 


REM sticrk up 


i:_-5 


IF Y=^0 GOTO 145 






1 40 


IF F=239 THEN y=Y-l: 
down 


POKE X.Y: GOTO 105: 


REM ctick 


1-'15 


IF x=o Gora 160 






150 


IF P=247 THEN X=^X- 1 : 


GOTO 100: REM =tick 


le-ft 


155 


IF X=65535 GOTO 165 






160 


IF P=223 THEN X=X+1: 


GOTO 100: REM stil::^ 


1'- i c] h t 


165 


IF P^127 THEN FDR I ^- ] 
pressea 


TO 500: NEXT: END: 


REM trigger 


170 


GOTO I2n 







Line 70 of listmg 3 informs BASIC 
that the function USR|X] calls the 
routine beginning at location 546. The 
address of the USRiX) entry point is 



stored in low-high format by POKEs to 
locations 11 and 12. If you've had 
trouble implementing USR(X] routines 
in the past, it may be because the 



Olympic 
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Challenger IP BASIC documentation 
published prior to 1981 stated incorrect 
locations for USRIXI entry point storage. 



A BASIC program is shown in listing 
4 which uses the USR|X| subroutine 
placed in memory by execution of 
listing 3, When listing 4 is executed, the 
value of P hi line 40 is the same as that 
of P in line 40 of listing 1, You can con- 
firm this by adding to listings 1 and 4: 

45 PRINT P 

so you can see the values of P generated 
as keys 1 tluough 7 are depressed. 

Without the extra Ime 45, listmgs 1 
and 4 ean be timed, when executed, to 
determine the speed improvement for 
joystick input obtained throtigb the 
USRiX) routine. On a Challenger IP 
with the standard processor clock rate, 
listing 1 executed in 26 seconds and 
listing 4 executed in 6 seconds. 

As useful as fast joystick input may 
be in game programs, never let it be said 
that joysticks are of no use elsewhere. 
For instance, listing 5 replaces and 
enhances some functions of the monitor 
ROM in the Challenger IP. 



The monitor allows you to examine 
and change individual bytes, but it 
displays addresses and corresponding 
data only in hexadecimal. Also, by 
holding down the Return key while in 
data mode, you can view consecutive 
addresses counting up. The counting 
speed is fixed at a rate which allows only 
the speediest reader to examine each 
byte in this manner, so most of us have 
to tap Return repeatedly when we are 
looking for a particular value some- 
where in a certain range of addresses. 

Listing 5 uses a joystick cotmected to 
the uppermost keyboard row to control 
a decimal display of addresses and data. 
Pushing the stick to the right will incre- 
ment the address, and to the left will 
decrement the address. The data in an 
address can be incremented by pushing 
the joystick up, and decremented by 
pushing the joystick down. The program 
is ended by pushing the joystick trigger. 

Lines 10 through 70 are the loader of 
listing 3. Line 80 clears the screen, and 
lines 90 through 100 set up the initial 
display parameters. The variable X is the 
current address, and the variable Y is the 
data stored at address X. Lines 105 and 
110 create a character string based on X 
and Y, and POKE that string to the 
screen. 



Z.FOHTH IN ROM byTomZimmer D.cir-i 

5 to 10 limes fasler than Basic. Once you use il, you II never go back lo bAiio. 

source listing add 

OSl FIG-FORTH True fig FORTH model forOS65D with fig editor named files, string 

package S much niofe 

TINY PASCAL Oparatas in fig FORTH, an exceptional value *fien purchased with forth. 

TINY PASCALS documentation 

FORTHSTINY PASCAL 



Lme 115 is a delay loop which is ex- 
ecuted after each display. If you prefer 
faster or slower operation of the pro- 
gram, decrease or increase the terminal 
value of the loop. 

Line 120 calls the fast joystick input 
routine and stores the result value in 
variable P. If the joystick is not pressed, 
the routine is called again without alter- 
ing the display. Line 130 increments and 
stores Y if the joystick is pushed up. 
Since the maximum value of data is 255, 
line 125 prevents Y from being in- 
cremented beyond that limit. Likewise, 
line 135 prevents Y from being decre- 
mented past zero, and line 140 
decrements and stores Y if the joystick 
is pressed down. 

The limits of X are zero and 64K, ex- 
pressed in lines 145 and 155. Line 150 
decrements X if the joystick is pushed 
left, and line 160 increments X if the 
joystick is pushed right. Finally, if the 
trigger is pressed, line 165 executes a 
delay loop to avoid keyboimce and the 
program ends. 

Whether your Challenger IP simply 
satisfies a craving for arcade games, or is 
the focus of more serious developments, 
the joystick is a most useful input 
device. Now it will go to work for you 
more quickly than before. 
WQ55" 
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daia on the 32K RAM board: overlaying, 
chiiining. 

3. PSKUDO-DISK: Modilies DOS 3.3 to allow us<- 
ol SATURN 32K RAM hoard(s) like another 
disk drive. 
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iMCftO 

Short Subjects 



List Corrupted SYM-bols 
Applesoft Input Anything 
Revisited 



by ten Green 
by Lee Reynolds 



List-Corrupted 
SYlVI-bols 

Len Green, 15 Yolam Street, Achuza 
34 675 Haifa, Israel 



The SYM monitor has a built-in com- 
mand to fill any length block of RAM 
with a specified byte. For example, 
FILL AA-1000-2FFF fills pages 10 
through 2F with the byte AA. Presum- 
ably other 6502 users either possess ex- 
tended monitors which have this facility, 
or have made their own very short and 
simple routines for performing same, 

SYM also has a monitor command 
for listing a specified byte. There are in- 
numerable routines in assemblers for 
listing individual bytes and/or strings. 
Although 1 assume that many simple 
programs must exist, 1 have not seen 
one which performs the REVERSE 
operation; i.e., lists all bytes which are 
not a particular specified one. This is 
also extremely useful in praeticel 

This program was one of my very 
early ones. Although less than 50 bytes 
long, it is probably not completely op- 
timized. Since i use it almost daily in 
several different ways, it was one of the 
first programs that I customized and in- 
cluded when I eventually graduated to 
burning my own Utility EPROMs. 
(Then 1 found it additionally helpful 
in checking stages of preparation for 
EPROMing, and checking the erased 
portions of the EPROMs themselves.) 

This program is fully relocatable 
without alteration; e,g-, to EPROM, Its 
checksum from $1000 to $1030 is 
#1D94. It uses zero-page locations $F0 
to $F4 inclusive, which don't clash 
with SYM's BAS-1 or RAE-1, but any 
five will do. The functions of these lo- 
cations have been fully outlined in the 
listing, together with those of the four 
fairly standard SYM monitor routines. 

Before starting any complicated pro- 
gramming, I generally fill all available 
RAM with the byte FF, (I have a very 
short routine for automating this pro- 
cess, including the relevant page and 
1 regions.) At a later stage, I can very 
easily check whether any quiescent 



areas of memory have been tampered 
with. This is convenient for keeping 
track of the several different zones of the 
Resident-Assembler-Editor and BASIC 
with their multitudinous patches, and 
for testing whether any rogue-bytes have 
been introduced anywhere, or any zero- 
page addresses altered unintentionally. 
To check, for example, whether a 
2716 EPROM from $F000 to SF7FF has 
been fully erased {K¥7], fill $F0 to $F4 
with FF 00 FO FF F7 and then GO/ 
1000/CR. Un-erased locations will be 
displayed in the form; 

F017,EF 

F48A,FE 

F7BD,00 etc. 

Prompt 



If you haven't invented an equi- 
valent routine before me, I hope you 
will find this one as useful as 1 have. 

Applesoft Input 
Anything Revisited 

Lee Reynolds, 5760 NW 60th Ave. 
Apt. B-101, Fort Lauderdale, PL 33319 



Most of the "input anything" routines 
lor characters like the comma and colon 
in Applesoft, depend upon using a ma- 
chine language routine, which directly 
uses the monitor's character input 
logic. This routine is different because 



0800 


1 


-* 








0800 


2 


;* LIST COFEUPTED SIMBCIS 






OBOO 
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OEG SI 000 
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OBJ S800 






1000 

1000 


9 

10 


BYTE 


EPZ SFO 


TEST BYTE CSW-BOL) 




1000 


11 


BEGAD 


EPZ 5F1 


BE)GIN ADDRESS, LCW 




1000 


12 


EUEAC 


EPZ 5F3 


END ACrSEES, ICW 




1000 


13 










1000 


14 


ism WXJITOF EOlfriNES 






1000 
1000 


15 
16 


CPIF 


ECU S834D 


PRIHT CBIF 




1000 


17 


CCWMft 


EO« S833fi 


FKINT 'CCWMA' 




1000 
1000 


18 


CUIBYT ECU Se2FA 


■EBINr HEX BYTE IK ACC. 


& A} 


19 


CUTXAH 


ECU S82F4 


■PPIHT 2 HEK BYrES(FRCM X 


1000 


20 


; 








1000 A200 


21 


START 


LEX ISOO 






1002 filFl 


22 




LCft [ BEGAD, X) 


;GEr BYTE 




lOM C5F0 


23 




CWP BYTE 


; CORRECT 




1006 F014 


24 




BEO OK 


.-BYIE (EYM-BOL?) 




1008 204 ces 


25 




jsR cmr 


;ELSE EBIKT LIBE 




lOfffi fi6F2 


26 




LDX BEGADH 


;adis(e:se-hi to X 




lOOD A5F1 


27 




lift BEGAD 


;ADDRESfi-UO TO A 




lOCF 20F482 
1012 203A83 


2B 
29 




JSK omxAH 

JSR CCMMA 


;H»IHT X & A 
[EBINT oa*lA 




1015 ft200 


30 




LDX #500 






ion AlFl 


31 




LEA (EEGAT.X) 


jIOAD ERPCS BYTE 




1019 20FA82 


32 




JSR OnEYT 


;AND PRINT IT 




lOlC A5F2 


33 


OK 


IXfi RRTAD+l 






lOlE C5F4 


34 




CMP EM»E+1 


jHI-ADDKESS EMD2 




1020 D007 


35 




BUE INCAD 






1022 A5F1 
1024 C5F3 


36 

37 




T.rft BEGAT 
WP EMEAD 


■ELSE CHFTK ID-ADD 
jLO-ADEKESS END? 




1026 DOOl 


3B 




BKE IBCAD 






1028 60 


39 




FTE 


;EHD Ce FDOTIHEl 




1029 
1029 E6F1 


40 
41 


INCAE 


ItC BEGAD 


[INC LO-BEG-ADD 




102E D002 


42 




BHE CCSTT 


jLO-ADISESS =*2 




102D E6F2 


43 




INC BEGAE+1 


;INC Hl-BZG-ADD 




102F 5CCF 


44 


CCBT 


BVC START 


lAIMAYS 




1031 


45 
46 


' 


END 
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it uses Applesoft's GET. This method 
offers some advantages over the use of 
machine language in that the program 
can more directly control what is dis- 
played on the screen, and can process 
certain types of input in special ways. 

I wrote the routine listed here for 
use at work (accounts receivable, in- 
ventory control, etc.). It demonstrates 
some programming practices which 
readers might like to emulate in 
writing user-friendly programs. 

Before you use the routine, you 
must declare the string array Zl$ by a 
Statement like: 

10 DIM Z1$(1): Z1$(0) = ■■#■■■ 
Z1$(1) = CHR${34) 

An example of using the routine: 

1000 VTAB 5: HTAB 1: PRINT 
"CUSTOMER NUMBER " 
N^4:X = 0:GOSUB200 

The customer number will be re- 
turned in the string XX$ following the 
GOSUB 200. The arguments N and X 
passed to the routine are the maximum 



Here Is the listing ai the routine: 

ZOO XX* = ■■■■: IF N THEN PRINT Zj»:xi;i FOR 1 = 1 TO Ni 
CALL -1036: NEXT: PRINT ZI»(X>;: FOR I = 1 TO N+ll PRINT CHR«(Sli NEXT 
210 GET AC: IF fl« = CHR»U3> JHEN PRINT! RETURN 
220 IF A« <> CHRXB) THEN 260 

230 L - LEN(XX«l-li IF L.S0 THEN PRINT fl«; : GOTO 2SO 
235 IF L = O THEN PRINT OS, 
237 IF L < O THEW CALL -19S 
240 XX* = "'^i GOTO 210 
2S0 XX* = LEFT«<XX*,L)i GOTO 210 

260 IF LEN(XX») = O AND ASC(A»> = 20 THEN INVERSE! 
PRINT "T"!i NORMALi GOTO 280 

263 IF N >0 AND LENlXXt) = N THEN CALL -19S: GOTO 210 
265 IF A* = CHR*(21> THEN XY = PEEK<36>i YZ = PEEK(37) KX = 
5CRNfXV,21VZ> + 16«SCRNUV,2«YZ*1>-120= A* = CHR*fXXJ: GOTO 275 
270 IF A5C<A«> < 32 OR A* = ";" OR A* = %" THEN 210 
275 FRINT A*; 
2eO XX* = XX* * A»n GOTO 210 
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ana report any mairunciiiws Tft* BimIo Surstcit ajU pu[ your sy^rerrt ihrougli e«hauaiive, 
Ihotough procHuies, tesima arwi reporTin^^ an rindpngs 

Ttte Tesis inclutle 



■ APPLESOFT BOW CAHO ItST 

■ INTEOEn nou CARD TEST 

■ MOTHERBOAHD ram I£9TS 

• DISK DJIIVE SPEED CALIBRATION 

■ DiSH DFriVg P>TAIHTEN*MCf 

• !>C HAVES HlCfiflWOOEW M TEST 

4HARDWAHE t EPHQI-^^ 
- MONITOR BMODUl>T0finDuTlN65 

• uoNJion sxEwihC 'esis 

» MOhllOn TEST PATTERh 

■ uohiTon vExr page test 



- MDhlTOn A TV VOAE ALIGNMENT 

■ LOHES COLQP leSTS 
* HI HtSCOLOfi TE5f5 

■ RAnDOU HIRES GENERaTOA 

■ SPEAKER f (frrt;TlON TESTS 

> ^UAPf WAVE WObULATJOh 

■ PADDLE S SPEAKEfl TEST 
' PAPDIE & BUITOH TEST 
' PADDLE STABILITT 

■ ■NIEnHAL UAIhTENAICF 

■ GENERAL WArNTENANCE 

> On BOARD - HELP" 



Tht Bf$lr% Surgtoii aCLow; you lo b* cDnFiiJerti oi yoiif sysTern This fb at cudcal as [ha 
opeifltino s/Gtem iisejf You musr ttepenil on your compurer I00% of lis running (imp, Tt>9 
flrt'fl St/r^tvt All! rncmiior and h&tp maifiiain absolute peah peffwrnarce. 

Siippl'Hf on disKellf wh comDiele 
ODCiimetrilKin >nd mipni^n 

PRICE ua^ 

■lEOUrHES 434, FP rn ROM 
1 Diik ^1'^ 03S 3 2 fl< 3 3 

Ntkrom Technical Products 

a PROSPECT STREET ■ tEOMIHSTCH, HA 014U 

Ctlf TollFm Howi 

lAialfl- CruFQB & Visa uuri e«4i i-SCl>AJ$'n46 

KiFiMB Rflsidenra ciii iScia-3G£.j42i 




■ ' BEHIAL Huk-Uir IS BElDll' Jomj DR Q*ltD 

M*aFIIM^B^ '■■£ « RETUO". Oi6n(rTE <►. us I f m 
1-i MOOfOBtJQ" 
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Tne gnosis version ol P-LI3P 
has been acknowledged- as 
Ihe (inest and most complele 
available lor Apple micro- 

computers, and wilh the addi- 
tion of rloalmg point malh and 
HI-RES graphics. It becomes an 
indispensoble loo! lor edu- 
caiors- scientists business ex- 
eculLves. malhemalicians or 
app Ilea I ions requiring arliTicial 
inlelligence This excellent pro- 
gram IS now available lor only 
SlWV5(DOS SSonly) 

Included in an allroclive 
binder is a ninety page users 

manual which will aid you in 
creohng your P-LISP programs 
This monual is also availoble 
separately lor S20 00. which is 
lully refundable on purchase o( 
Ihe program 

PLISP will run on a -IBK or 
larger APPLE Mil* and will 
late advanlage ol ALL avail- 



loi th« Appla II 

oble memory Supplied wilh Ihe 
inlerpreler are several sample 
programs including a complele 

ELIZA 

For those ol you who do not 
lully undersland P-LISP we have 
available Ihe P-LISF Tulonal lor 
S25 00 This experlly written lexi 
Is bound in a handsome binder 
and IS packaged lo include a 
disk conlaining all Ihe sample 
programs relerenced in Ihe lexi 
at no exira charge 



!S liS' 




fbrmeriy Pegasys Systems, Inc. 



4005 Chaitnut SIrast— Philadelphia, PA 19104 
Oidais Only: 800-533-0725— Panna. naildsnii: 215-3S7-1500 
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number of characters to be input and 
the type of input prompt to print. If X 
= 0, then the program is expecting the 
user to type in a number. The prompt 
would look like this on the screen at 
line 5: 

CUSTOMER NUMBER # # 

Notice that the # signs delimit the 
area where the user is allowed to type 
his answer. When X = 1, the program 
is expecting alphanumeric input (any 
characters, not necessarily numeric], 
so the delimiters for what is to be input 
are quote marks, as in; 



1010 VTAB 7: 
"ADDRESS 
GOSUB 200 



HTAB 1: PRINT 
■;: N^24: X = 1: 



The screen looks like this on line 7; 
ADDRESS " 

You can also pass N = to the 
routine, in which case there will be no 
delimiters printed. Here is an example 
of how we use this option; 

2000 VTAB 10: HTAB 1: PRINT 
"DATE MM/DD/YY";: HTAB 
7: N^O: GOSUB 200 



In this case, the user is expected to type 
in the date over the prompt ' 'MM/DD/ 
YY" on the screen. 

Another special feattne that this 
routine incorporates is one I have found 
very useful in file-maintenance-type 
functions, such as adding, changing and 
deleting customers from the Customer 
File. Before doing the GOSUB 200, the 
program displays a message "(TYPE 
CTRL-T TO TERMINATE]" at line 23 
on the screen. This tells the program 
user that when he is finished adding, 
changing, or deleting customers he 
should reply to the "CUSTOMER 
NUMBER" question by typing control- 
T [and carriage return]. The routine 
will display an INVERSE T on the 
screen so that the user can easily verify 
what was typed. Then special logic 
after the GOSUB 200 terminates the 
add/ change /delete process. 

Here are a few more notes on how 
the routine operates; 

200 The CALL - 1036 moves the cur- 
sor forward inside the loop so that 
on the "Change" function for the 
user's input, he can see what he 
originally typed, and just copy over 
what might already be correct, 
using the forward arrow key. 



210 Testing for CHR$|13] is to end in- 
put when carriage retinn is typed 
by the user. 

220 CHR$(8] is the back-arrow. 

230 If the user has not attempted to 
backspace past the beginning of 
the field, we perforin the back- 
space and truncate the input. 

237 If the user tries to backspace 
before the field beginning, then 
CALL - 198 rings the bell. 

260 If controUT is the first typed 
character, print INVERSE T. 

263 If the user exceeds the right 
margin of the field, ring bell. 

265 If the key typed is forward arrow, 
get character beneath cursor by 
means of formula on page 87 of 
Applesoft manual, and add it to in- 
put string. 

270 If the user types any other control- 
character, or a comma or colon, ig- 
nore it. 
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UNTY FAIR 



is COUNTY TERRinC 



The only thing missing is cotton candy 

You're on rhe midway, ond here's o 
chonce to show your skill. You pick up your 
rifle ond bong owoy. Seems eosy . . . but! 

Dur, worch those ducks! They're sneaky as 
all get out. They'll gobble up your bullets 
and leave you with on empty gun and o low 
score. And don't miss the rabbits . . . they 
multiply like crozy. 

Come on, join the crowd . , . with enjoy- 
oble, foscinoting graphics rhe whole fomiiy 
will love. 
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■Apple II IS Q rrodemorh ol Apple Compmer. Inc. 



County Foir by Don lllowsky For Apple II *. 
Jusr S29.95 QT compute srores, or: . 
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SDS MOVES AHEAD 

We at SDS have built our reputation 
by ottering the highest quality utility 
software available, combined with 
personalized service and after-sale 
technical support. Our total 
involvement in the utility software 
area is further reflected in our 
president Roger Wagner's widely read 
monthly column, "Assembly Lines". 
Our thorough knowledge of the field, 
and our sense of commitment to all 
our customers have led to 
tremendous success in 1981. 

So SDS is growing - from the 
creative vision of a single person, to 
one of the shining stars of the 
software industry. Whether you're an 
end user, dealer, or author, we want 
you to make SDS part of your success 
with the Apple II. 

To make that happen, we're now 
offering a wider range of utility and 
other software, more customer 
service, better author benefits. The 
service is still personal and the 
products are still the finest anywhere 
- but now we can offer you more . . . 



MORE NEW PROGRAMS 

ROUTINE MACHINE- A terrific way 
to put mactiine language in your 
Applesoft programs. Simply cfioose 
from a pre-written library of 
subroutines. No knowledge of 
mactiine language is required. 
AMPERSOFT PROGRAM LIBRARY- 
A set of additional machine language 
subroutines for use with Routine 
Machine. 

MERLIN - A powerful, full-featured 
6502 macro assembler. 
ASCII EXPRESS: THE PROFESSIONAL 
A professional version of our best 
selling communication package that 
transfers files of ANY size or type. 
Supports all 80 column boards, 
interactive macros, and much more. 
PTERM: THE PROFESSIONAL- 
A Pascal version of Bilt Blue's highly 
acclaimed communication software. 
OOUBLETIME PRINTER - Increase 
your Apple's productivity by simul- 
taneously printing text or binary files 
from one program while you run other 
programs, 

UNIVERSAL GRAPHICS - The ultimate 
Hi-Res printing utility to transform 
your creations into permanent records 
on ANY graphic printer. Includes 
picture cropping, inverse inking, 
horizontal or vertical printouts, and 
a range of magnifications. 



MORE DEALER SUPPORT 

SDS is committed to the continuing 
support of the Apple dealer. As part 
of our new program, SDS offers: 
- Informative point-of-sale materials 
Comprehensive national advertising 
Head Start Program to insure 
priority delivery of all new products 

• Special dealer discount on in-store 
display items 

• Comprehensive line of wide 
application software products 
Full-time technical support staff 




P.O. Box 582M Santee, CA 92071 
Tel. 7U-562-3670 



MORE AUTHOR BENEFITS 

SDS is an industry pioneer in 
innovative software for the Apple II. 
When you join the SDS team, you get 
the benefits of a professional support 
staff experienced in providing alt the 
help you need to market your 
program. Other benefits include: 

• Technical programming assistance 

• Unique copy protection with limited 
backups 

• Successful marketing strategies 

• Assistance in writing the manual 

• Professional product artwork 

• Quality advertising 
" Superior packaging 

• National distribution 

• Highest royalties paid monthly 

• Customer service support 

Here's the chance for you to market 
your program with the finest publisher 
in the software industry. Let South- 
western Data Systems' reputation and 
proven track record go to work for 
you. Be a part of our success - call 
today. 




IF YOU LIKED OUR 
POOL 1.5, YOUTL 
LOVE TRICK SHOT! 

*Watchforthe "GREAT TRICK 
SHOT TOURNAMENT " i 



FOR YOUR 

APPLE II 



P.O. BOX 1658 
LASCRUGES,NM 
88004 505-522-7373 



6502 Micioprocessor 
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6502 — most prominent member o1 the 65XX family of 
microprocessors 

— designed and manufactured by MOS Tectinology 

— manufactured by Synertek and Rockwell 

— used in Apple. AIM, SYM, KIM, OSI. PET, VIC, 
Atari, Acorn, and many other computers 

— also used for many dedicated applications, including 
process controllers, arcade games, and Atari and 
Mattel home video games 
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Unsigned 
Comparisons 



N- 


- negative result 


V — 


overliow 


B- 


- BRK instruction 


D- 


- decimal mode 


1 - 


- IRQ disable 


Z — 


zero result 
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- carry 
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BCC 
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A - M 


uto 


yes 


A > M 
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BNE 


no 
yes 


A £ M 
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A * M 


BNE 


yes 


A < M 
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yes 
yes 
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Add with carry 


6502 Instruction Set 

DEC Decrement memory 


ROL 


Rotate left 


AND 


Logical AND 


DEX 


Decrement X 


ROR 


Rotate righl 


ASL 


Aritrimelic sfiifl led 


DEY 


Decrement Y 


RTI 


ReLurn trom interrupt 


BCC 


Brancti if carry clear 


EOR 


Exclusive OR 


RTS 


Return trom subroutine 


BCS 


Branch it carry set 


INC 


Increment memory 


SBC 


Subtract with carry 


BEO 


Branch if result = 
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Increment X 


SEC 


Set carry 


BIT 
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Brancri 11 minus 
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Jump 
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Set Interrupt disable 
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Branch if overflow set 
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Clear carry 


NOP 
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TSX 


Transfer SP to X 


CLD 


Clear decimal mode 
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Logical OR 


TXA 


Transfer X to A 


CLI 


Clear interrupt disable 


PHA 


Push A 


TXS 


Transfer X to SP 


CLV 


Clear overflow 


PHP 


Push P status 
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Transfer Y to A 
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PLA 


Pull A 
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Pull P status 
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' Implied 


N 


negative result carry 


t Zero Page. Y 


V 


overflow 


6 set V H bit 6 




Z 


zero result 


7 sel N if bit 7 


Branch 


Clear 


&Set 


Program Flow 


BCC 90' 


CLC 


18 


JMP 4C Absolute 


BCS BO 


CLD 


D8 


JMP 6C Absolute Indirect 


BEQ FO 


CLI 
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BMI 30 


CLV 


88 


RTS 60 


BNE DO. 


SEC 


38 


RTI 40 


fiPL 10 


SED 
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BVC 50 


SEI 


78 
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BVS 70 









Accumulator 
Immediate 
Zero Page 
Zero Page, 

indexed by X 
Absolute 
Absolute, 

indexed by X 
Absolute, 

indexed by Y 
Indirect. 

indexed by Y 
Indirect. 

indexed by Y 
Relative 
Absolute indirect 



ASL A 
LDA #nn 
LDA nn 

LDA nn, X 
LDA nnnn 

LDA nnnn, X 

LDA nnnn, Y 

LDA (nn, X) 

LDA fnn), Y 
BCC nn 
JMP (nnnn) 
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nn — single-byte number 
nnnn — double-byte number 
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FORTH (or PET 

Because of the international standards 
that exist for FORTH, there are few dif- 
ferences in the various FORTH imple- 
mentations for the PET. The dif- 
ferences come in the packages of add- 
on commands, the accessory programs, 
the documentation, and the support 
you receive from the manufacturer 
after you buy the software. 

I obtained one version of FORTH for 
this column — FORTH for CBM/PET 
by L.C. Cargile, Jr., and Michael Riley 
($50 from AB Computers, 252 Bethle- 
hem Pike, Colmar, PA 189151. This is a 



full fig-FORTH, with the FORTH-79 
extensions available as a convenient 
add-on. 

First, I recommend that you copy 
the disk and make a customized 
FORTH version that includes "PET- 
style" input functions. This replaces 
the primitive, teletype-style input with 
the convenient and familiar screen- 
editing of the PET. Why wasn't this in- 
cluded in the original version of this 
FORTH? It wouldn't comply to the 
standards! Each 2040/4040 disk holds 
150 "screens," while each 8050 disk 
holds 480. 



In addition to FORTH itself, the 
disk provides several screens, which 
include the editor, error messages, 
printer drivers, assembler extensions, 
string functions, and useful sample pro- 
grams. One will print the calendar for 
any month of any year. Figure out how 
it works, and you have learned a lot 
about FORTH. The manual docs a good 
lob of documenting this implementa- 
tion. There is a complete fig-FORTH 
glossary, a listing of the screen con- 
tents, and a memory map of the kernel 



words. Although there is a large section 
entitled "If You've Never Tried 
FORTH...," you are better off learning 
the language elsewhere. AB advertises a 
FORTH Metacompiler for $30, which 1 
was unable to try. This program creates 
compressed object code, which can be 
executed directly (without any FORTH 
software). 

Other FORTH versions, which I 
was not able to evaluate, are available 
from FSS [S50 - $70, 1903 Rio Grande, 
Austin, TX 78705] and from Microtech 
($75, P.O. Box 102, Langhorne, PA 
19047). 

A First Look at the SuperPET 

1 recently spent several hours with a 
SuperPET, Commodore's newest com- 
puter. It consists of an 8032 with a 
6809 processor board, 64K of additional 
memory, an RS-232 interface, and a 
great deal of software and documenta- 
tion. The software consists of mter- 
preted versions of four popular, high- 
level languages [APL, BASIC, FOR- 
TRAN, and Pascal! and a 6809 
Assembly Language Development pack- 
age These programs were developed at 



(LABELl Y (LABEL,X) LABEL + INDX-1 



6502 Assembler/Editor 



APPLE 

ATARI 
PET 



SYM 



Before you buy that off-brand Assembler/Text Editor, note that ENS is the only company that provides a| 
line of compatible ASM/TED's for the PET/APPLE/A TARl/SYM/KIM and other microcomputers. 
Iwhen you make the transition from one of these 6502-based microcomputers to another, you no longer I 
Ihave to relearn peculiar Syntax's, pseudo ops, and commands. Not only that. EHS ASM/TED's are the 
lonly resident 6502 Macro Assemblers auailiable and they have been available for several years. Thus you 
lean be sure they work. Our ASM/TED's may cost a little more but do the others provide these powerful 
|features: IVIacros, Conditional Assembly, String Search and Replace, or even up to 31 characters per label? | 
I Before you spend your money on that other ASM/TED, write for our free detailed spec sheet. 



MACRO ASM/TED 
For APPLE/ATARl/PET/SYM/KIM 
Other than our MAE, no other assembler 
is as powerful. 

Macros/Conditional Assembly, 
Extensive text editing features 
Long Labels 
Designed for Cassette- based systems. 

$49,95 



MAE ASM/TED 
For APPLE/ATARI/PET 
The most powerful ASM/TED 
Macros /Conditional and Interactive Assembly 
Extensive text editing features 
Long Labels 
Control files 
Designed for Disk-based Systems. 

$169.95 



EASTERN HOUSE SOFTWARE 

3239 Linda Drive PHONE ORDERS 

Winston-Salem, N.C. 27106 USA (919)924-2889 
(Dealer Inquiries Invited) (919) 748-8446 
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the University of Waterloo, Canada, for 
use in an educational environment. 
Because the same language interpreters 
have been written for the IBM 370 and 
other mainframe computers, the soft- 
ware [and the 80321 can be used to 
develop programs for a mainframe 
computer. 

The extra 64K of memory is used to 
hold the language interpreters, which 
run under the control of the 6809, The 
32K in the 8032 is used for program 
storage. The 64K is divided into sixteen 
4K blocks which are switched in and 
out of the $9000 block. This bank 
switching is accommodated automatic- 
ally by the Waterloo software, but h is 
up to the user to dn the switching [by 
manipulating a few bytes] when the 
6.502 is in control. Familiar 6502-based 
programs like Wordpro and VisiCalc 
can only use the original 32K, although 
I understand that new versions of the 
programs are on the way, 

I concentrated on learning to use 
Waterloo mieroPascal, which was a 
real joy to use. Just type in the source 
program and run it, as you would a 
BASIC program. You get immediate 
feedback with comprehensive error 
messages, so it is easy to write and 



debug programs. The implementation 
of Pascal is the most complete of the 
ones I tried. There is also an interactive 
debugger, which allows you to trace 
program execution and examine vari- 
able values at any point in the program. 
The manual includes a series of sample 
programs (also included on the disk], 
which serve as a tutorial. While the ex- 
amples cover many features of the 
language, they aren't comprehensive, 
by any means. 

You can probably see how the in- 
teractive nature of the Waterloo inter- 
preters would fit into the classroom. 
High schools and community colleges 
could teach these languages without 
owning or even having access to a 
mainframe computer. Organizations 
with the mainframe computer and the 
appropriate interpreters could have 
their programmers do a great deal of 
their development work, perhaps even 
at home, using the SuperPETs. Then, 
using the RS-232 port, the SuperPET- 
developed program can be fed to the 
mainframe computer, directly or over 
the phone lines. Programming could 
become another cottage industry! 

Waterloo microCOBOL is under 
development, and should he available 
before too long. 



Finally, don't confuse the SuperPET 
with the 8096 [as I did! ] , which also uses 
an additional 64K of RAM, This conver- 
sion does not include a 6809 or RS-232, 
None of the Waterloo interpreters will 
work in an 8096. However, the 8096 
will be supported with new versions of 
word processors, data base managers, 
and programs like VisiCalc, As I men- 
tioned last month, a UCSD Pascal will 
be available soon for the 8096. 

The 64K upgrade for an 8032 is now 
available for $500. The SuperPET 
upgrade for the 8032 [$995] is not yet 
available. 

Overlooked? 

I receive review copies of many 
more products than I can possibly cover 
in this column. I have put several of 
these to good use, which certainly at- 
tests to their value. These include the 
Programmer's Toolkit (Palo Alto IC's|, 
MAE (assembler editor. Eastern House 
Software], Wordpro 3 (Professional 
Software], and VisiCalc (Personal Soft- 
ware], In addition, Commodore has 
lent us a great deal of equipment, in- 
cluding a 4032, 8032, 4022, 2040, 8050, 
VIC, and VIC 1515 printer, I thank all 
of these companies for their support. 

MCftO 




X 




PET/CBM 

SDQD/aODO/^OOO Series 

HOC using a CRT, or display controller chip 
S27S.OO' 



Select either 
eo X 55 an 40 x SS 



On The 

Built-in 
Display 



From the keyboard or program 

Displays the full, original char-acter set 

Available fnorn your local dealer or: 
EXECOM CORP. 

19D1 Polaris Ave, 
Racine. Wl 53^04 
Ph. 414-B32-100'1 

*Plus inst;allation charge pf 375.00 

Available only for Basic 3.0 S Basic 4.,0 
PETS CBM'"h 
tnadsmarl( of Commodare Business Machines 



SINGLE DISK for PET 

»460.oo AjM 



The PEDISK [I bv cgrs MICROTECH is a high-performance 
FLOPPY DISK svstem for the Commodiare PET. Rockwell AIM 
and SynertekSYM. 



441IGH SPEED 
+HIGH CAPACITY 



+IBM COMPATIBLE 
+EXPANDABILITY 



Several models are available with either BVi inch or S inch 
driues. IBM 3740 data can be exchanged using 8 inch models. The 
system is expandablel Buy a single drive now and add more drives 
laterl 



5Va" mini floppy disk SYSTEMS: 

Model 540-1 Single Dri^^e, Double Density (143K) 

IVIodel 540-2 Dual Drive, Double Density (286K) 

Model 580-1 Single Drive, Quad Density {286K) 

Model 580-2 Dual Drive, Quad Density (572KJ 

8" MINI FLOPPY DISK SYSTEMS: 

Model 877-1 Single Drive, IBM standard (295K) 

Model 877-2 Dual Drive, IBM standard (590K) 



$460 
$750 
$660 
$995 

$895 

»1240 



Low Quantity^OndBn Now 

G.E. TOLTON SystemA Software Consultont 

BOX 40, WILLOW GROVE.PA 19090 215-657-7264 
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NEW LOW PRICE 

DIRECT FROM MANUFACTURER 

$120.00 




I 



16K RAM EXPANSION BOARD 
FOR THE APPLE II* $120.00 



The Andromeda 16K RAM Expansion Board 
allows your Apple to use RAM memory in pl<tce 
of the BASIC Language ROMs giving you up 
CO 64K of programmabfe memory. Separate 
Applesoft' or'integer BASIC ROM cards are no 
longer needed. The I6K RAM Expansion Board 
works with the Microsoft Z-80 card, Vrsicalc, 
DOS 3-3, Pascal, Fortran, Pilot, and other 
software. A switch on the card selects either 
Che RAM language or the mainboard ROMs 
when you reset your Apple. 

The Andromeda I6K RAM Expansion 
Board has a proven record for reliability with 
thousands of satisfied customers. 



Now with One Year Warranty. 

ATOnOMEDA 



n 



919 852-1482 



INCORPORATED 

Greenstjoro, NC. 27410 
P.O. Box J9I44 





Price for Andromeda I6K RAM 
expansion board now only SI 20.00. 
Please add S5 tor shipping and 
handling. North Carolina residents 
add 4% sales tax. 
'DEALER INQUIRIES WELCOME. 
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ftJAR I [owners; 



O High resolution graphics- 
Life like motion. 

O instant replay on any shot. 
O Superfine aiming. 
O Pool room sound effects 
O Choice of 4 popular games 



See your local 
computer dealer 
or order directly 
from IDSI. 
Specify ATARI 
or APPLE. 



ATARI IS the registered trademark of ATARI Inc. 
APPLE II is the registered trademark of 

APPLE Computer Inc. 
POOL 1.5 is trademark of IDSI. 
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Credit 



Box 



Creator 



After writing a long Applesoft 
program, It is good to append an 
information credit block at the 
end where It cannot easily be 
deleted. The routines here 
enable you to do that, and 
demonstrate some clever error- 
trapping techniques which may 
come In handy on your next 
programming task. 



Sandy Mossberg 

50 Talcott Road 

Port Chester, New York 10573 



Have you ever wished to place an infor- 
mation box at the end of your program? 
Better yet, have yon wanted all the 
lines of that box to be numbered 65535 
so that deletion of the box could not be 
accomplished with ease [Applesoft for- 
bids numbers greater than 63999 to be 
typed from the keyboard)? This pro- 
gram allows you to do just that without 
entering the monitor. 



An explanation of potential program 
usage is provided within the informa- 
tion section of the program. The pro- 
duction of a sample output enables cor- 
rections to be made before the box is 
appended to your loaded (target] pro- 
gram. End- of -program data allows for 
the deletion of the box if desired. 



The main program, entitled CRBC 
(listing 1), is accessed through an EXEC 
file named CREDIT BOX CREATOR 
(listing 2) . The latter file stores 



pointers for the beginning (decimal 
103-104) and the end (175-16) of the 
loaded program in one of several 
scratchpad areas (decimal 1912-1915) 
of text page one. Begirming-of-program 
pointers are then reset to 256 bytes 
greater than the end of the loaded pro- 
gram. This is done so that when CRBC 
is EXECed, ii will load in at an address 
that is 256 bytes beyond the end of the 
target program. Note that the byte im- 
mediately preceding the start of CRBC 
is set to zero. 



In the main program, extensive er- 
ror trapping is utilized. GET (rather 
than INPUT) statements are employed 
to acquire text material, with each line 
of text formed by concatenation and 
stored in the string, I$('|. This method 
enables input to contain "forbidden" 
characters such as commas and colons 
and provides simple text editing capa- 
bilities. REM statements in the DATA 
INPUT section of listing 1 document 
all traps and filters. In a 48K configura- 
tion, forced garbage collection is not 
necessary. 



Once the sample output is accepted, 
the true end of your program is located 
and the box is appended by POKEing 
data into consecutive memory loca- 
tions beginning at the second of the 
three zero-bytes that signal the end-of- 
program. REM statements in lines 
1200-1660 of listing 1 document this 
sequence. Finally, target program 
markers are restored and the ending 
message is printed. 



I hope you will find CREDIT BOX 
CREATOR enjoyable and the program- 
ming principles useful. 



Listing 1 

10 RHI 



CRBC 
BY S6ND¥ HDSSBEEG 

20 REM 

30 TEXT ; CALL - 936: PCKE - 1 

6298,0 
40 GOSOB 6030 
50 GCeUB 5010 
200 Rai 

DRTA INPUT 

210 GC6UB 3010 

220 VEAB S: PRIHT "tJSE Ml M3RE T 

HAN 17 CHfiRfiCTfES PER LItE" 
230 PRIHT ""lYPE OWE OR H3RE SEftC 

ES FCB A BLANK LINE"; 
240 PRINT "PRESS <CIBI^B> TO RETT 

[3RN ID PRIOR LINE" 
250 PRIHT "PRESS <CrRL-C> TO ABO 

RT PROSiRH" 
260 FOl I = 1 TO 40: PRINT "-";: 

NEXT I 
270 P(KE 34,10: R3I SET WINDOW 

TOP TO posmraj #11 (0 is 

TOP POSITIOJ) SO THfiT 

IHSTRtXTTICnS AND HEADER 
Win. REMAIN CH CKT. 
280 VTAB 11: INPUT "NtmBES OF TE 

XT LINES: ■;LLg:It = VRL (L 

L5) 
290 IF LLS = "" THEN vmB 11: mflB 

1: CALL - 868: GOID 2BD: REM 
1HAPS <RE7rUBN> 
300 FCB I = 1 TO LEM (liS) 
310 IF ASC [ MID5 (LLS, I, 11) < 

48 CR ASC { HIDS (LLS, 1,1)) 
> 57 THEN GCSJS 340! VTAB 

11: CALL - 958: GOIO 260: REM 

TSflPS H3H-NU^ERIC INPUT 
320 NEXT I 
330 GOID 350 
340 VEAB 14: ETTAB 1: INVEESE : PRINT 

" PLEASE EWHE NUMERIC DAIS 

(ULY " I MDRMAL : FOt J = 1 TO 

3000: NEST J: RETtliN : REM 

EBRCE MESSAGE 
350 DIM ISdL + 4), IMS (II. + 4): VTAB 

14 
360 FCKE 34,12 

(Continued) 
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Listing 1 (Continuedl 



370 
3B0 

390 



FCE I = 1 TO LL 
PRIHT "LINE #"I; 



PBim ": 

: IF r > 9 TOEM 
- B68: PRINT "; 



mm 9; CAIi 



Rm TEXT INPUT 



LOSS 
MO K = 0: RiM K=L1NE PCeiTICM 
410 K = K + 1 

«0 HTOB {9 + K) ! IF PL THIM FL = 
0: PRINT "-";: Cfili - 1008; 
R31 FLflG SCT BY PRESSING-:— 
WHICH EEftSEE LflST LETTER 
OJ LINE. 
430 GET IS: PRIOT IS;: RIW ALL 

INHTT WITH GET STATEUEOTE. 
«0 15(1} = IS(I) + IS: REM 

IS(I)=aiE LINE OF TESTT WliEM 
CCNCftTEMfiTIC*! CCMPLETE. 
450 IP K = 1 AND IS = CHRS (13) 
THfM IS (I) = "": CALL - 99 
Si HThB 1: CALL - 958! GOTO 
380: R£« TRAPS <RETtlRH> 
BETCRE ANY TEXT IS TYPEE. 
460 IF K = 1 A^D IS = CHRS (8) THEN 
ISd) = "'i HTAB 1: CALL - 
958: GOTO 380: REM TOAPE 
<— BEPCRE ANY TEXT IS 
TifPED. 
470 IF IS = CHRS (3) THEN 2130: 

POl E»D CM <CTRIf-C> 
480 IF I » 1 AND IS ■ CHRS (2) IHEN 
HTOB 1: CAIL - 868: GOTO 3 
BO: REM IF OH LINE 11 

DISABLE <CIRL-B> 
490 IP IS - CHRS (2) THEM IS(I) 
- "":IS(I - 1) = ""!l = I - 
1; aii. - 993; HlftB 1: Cftll. 



- 958: GOTO 380: REM GO TO 
PRICE LINE CH <CIRI.-B> 

500 IF IS - CHRS (13) TOEM IS(I 
) - LEFTS (iS(I)r LEH (IS(I 
)) - Us GOTO 560: vm NEW 
LINE. RH>!OVE RETtEH 
«CIHL-M>) FECW SmiNG. 
510 IF K " 2 M® IS - CHRS (B) THEM 
15(1) - ""sK - K - ItFL - It 
GOTO 420: REM MJOS FIRST 
LBETER OF LUX TO BE ESASED. 

520 IF IS - CSRS <8) THE» IS(I) 

- LEFTS (ISd), LEW (ISd) 
) - 2)!K - K - IsEl - 1: GCfTO 
420: RHI <~ 

530 IF LEU dSd]) > IS THEH PRINT 
CHRS (7) 1 1 RB4 scum 
W MtHIH G BEU. MTES. 15 
LL'i'iUtS PRIIfTQ). 

540 IF LSI dS(I)} > 17 niEH PRINT 
: PRINT t IHVBISE : PRIHT ^H 
cm: than 17 CHARACTERS. PLEA 
EE REEtfTER!": tOlMM, : FCR J 
= 1 TO 3000: NEXT ;ISd) = 
"": PtKE 37, PEEK (37) - 4: CAIi 

- 958: GOTO 380: REM TRAPS 
INPlfT > 17 LETTERS. 

J50 GOIO 410 

j60 NEXT I 

J70 PCKE 34,0: REM REBErT WIMXIJ 

TOP. 
700 Rm 

SAMPLE OUTPUT 



710 GCSUB 3110 
720 VmB 6 

730 FCR I = 1 TO LL:'mSd) ■ 
p! NEXT I; Rm INS (I) 



IS( 




BV CnSCS, INC. 

D€SIGNeD TO PROTeCT VOUR COMPUTeR 




Features — 

• Rigid Shell Made oF Plyujood 
Supported High Impoct FieS. 

• Shocl< lleslsCont Foam Lining. 

• Heavy DuCy Hordmare 
Includes Hey Lodiing Lotches 

• Sound MeCol Gdges. 

• Interlod^ing Tongue and 
Groove fetrusion. Motir>g Ud 
and Bottom. 

Apple l( Plus 2 Drives SI 75.00 



OTHeR 
RVfllLRBL€ 



Cflses. INC. 



CLU8 AND DSflLeR DISCOUNTS fiVRILflBL6 
P.O. Box 33820 Seattle, LUR 98T33 (206) 365-5210 





EQUMED ID IS (I) AND Wlli BE 






CBED FCR SCETIH3 TO FIND THE 






lOJGEST LINE INPUT. THIS 






HELPS CCWSTRUCT BOX SIZE. 




740 


REM SCRT LINE LEHCTIHS IBIN3 
BUBELE SOST 




750 


FCRJi-lTOLL-l 




760 


FCEIb1I0LL-J 




770 


IF LEH (TMSd)) < LEH (T«S 
(I + 1)) THEN IMS - I«S(I)iT 
HSd) = TMSd + DsTMSd + 1 
) - IHS 




760 


NEXT I 




790 


NEXT J 




800 


R31 IKS (11 N™ CCHTMNS 
LCKGEST LINE 




310 


[C = LEN (TWS(ll) 




B20 


BB = LEH (TMS(l)) t 14 




B30 


PRINT "65535 REM ";: FCB I = 
1 TD LG + 4: PRINT "*";: NEXT 
l! PRINT 




840 


KUNT "65S35 REM *";: HTAB ( 
BB): PRINT "*" 




850 


FC« I = 1 TO LL 




860 


HUNT "65535 REM • "ISdl;: (HftB 
(BB) : PRINT "*" 




870 


NEST I 




880 


PRINT "65535 ROi *";: ffTAB ( 
BB): PRINT "*" 




890 


PRINT "65535 Rm ";: FCR I = 
1 TO LG + 4: PRINT "*";: NEXT 
I; PRINT 




900 


PRINT ; PRINT 




910 


PRINT "IS THIS CCRRECT? (Y/N 
I ";: GET IS: IF IS = "N" TWEM 
HTRB 1: CALL - 868: INVERSE 
: PRINT " LET'S START AGAIN 
": NDRMAL : FCR I = 1 TO 300 
0: NEXT : CLEftR : GOTO 50 




920 


IF IS < > "Y" THEM HTAB 1: 
CALL - 958: GCTO 910 




930 


PRINT : PRINT : HTftB 6: FLASH 
: PRINT " CUE M3HENT ": lOaiAL 




1000 


REM 

CCMPIGURE FINAL 
OUWUT STRIHSS 




1010 


tyU I = U. TO 1 STEP - 1:1 
Sd + 2) - ISd): NEXT I: RQf 
INC SOB BY 2 TO PROVIDE ROOM 
PCR TOP & BOnOM OF BCK 




1020 


ISd) = "■:IS(2) - " 




1030 


FCRI = lIDIC + 2 




1040 


15(1) ■■ IS(l) + "•": REM 
LINE 11 




1050 


IS(2) = IS{2) + ■ ": RQ1 
LINE 12 




1060 


NEXT I 




1070 IS(I1 + 3) - IS{2)! REM 






PagULITMATE LINE-LDE *2 




1080 IS(II. + 4) > IS(l)i REM 






LAST LINE-LINE 11 




1090 


FOR I a 1 TO Uii REM 
EQUALIZE LINES 




1100 


FORJ-lTOIC + 2- LQ5 
(I5d + 2)1 




1110 


IP J ■ 1 THHJ 15(1 + 2) " " 
" + ISd + 2): GOTO 1130 




1120 


ISd + 2) ■= ISd + 2) + ■ " 




1130 


^EXT Ji ^EXT I 




1200 


REM 
FI^D on) OP PROQV^ 




1210 


Pm FCM MARKEPS HAVE B&EH 
EXBCED INTO SCEATCHIAD 
SKCeAGC AREA OF TEXT PG 1 
(1912-1915) 
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Listing 1 (Continued) 



1220 ISA START IN 1912-1913 
HID IN 1914-1915 

1230 REH Oaj IF POI (EM>) MARHS 
MftY NOT GIVE TRUE EOP, TUBS 
WE m^ ChLC TRUE BOP Ef 
FINDING 3 COISECunVG Z^O 
BYTES, THE 21D OF »1ICH 
REPRESESnS IHB BEGDVING 
AIXiRESS OF THE BCK TO BE 
APPENDED 

1240 H - PEEK (1914) + PEER (19 
15) ■ 256 - G; RQt tMECRESS 
e BYTES BEFCftE EOP 

1250 FCR I - H TO M -t- 16t IF PEEK 

(I) - MO PEEK (I + 1) " 
AH) PEEK II + 2} - "TBaH 
TE - I + 1:1 - M + 16l REM 
TE-fiCDRESS OF BCK START 

1260 mxt I 

1270 Tl >• TE; RQ4 SAVE TG 
1500 BE» 

POKE BCK ItnO KEMCRY 

1510 EX»J = 110Ii + 4 

1520 IB - LEH (I$(J)) 

1530 H. > m + a + I£ 

1540 POKE (TE) , (M, - mr (M, / 

256) * 256) i PCKE (TE + 1), INT 

(K. / 256) i REM LO/HI ElYIES 

Cff tEffT LINEf 
1550 T-T+8 + IS: ROl TOTAL 

EiTES CREATED 
1560 T2 - T: REM SAVE IT 
1570 POKE [TE + 2) ,255: PCKE (TE 
+ 3) ,255: RQ1 LO/HI BYTES 

OF PRESENT LINE* 
1580 POKE (TE + 4) ,176: FCKE (TE 

+ 5) ,42 ! RQl RQ1+* 
1590 FCR 1 = 1 TO LS: PCKE (TE + 

5 + 1), fiSC { HIDS (1S(J),I, 

1)): NEXT I: REM SIRIH3 

ASCII VALUES 
1600 PCKE (TE + 6 + IS) ,42: RQl 

* 

1610 POKE (TE + 7 + I£1,0: Hm 

END OF LINE 
1620 TE = NL 
1630 NEJfT J 
1640 POKE (U:.),0: PC»E (M, + 1) , 

0: REM EOP ZQ» MARKERS 
1650 T = T + 2: REM TOTAL BYTES 

tBED 
1660 T2 = T: HEM SAVE IT 

2000 sm 

SESCCSE MARKERS & EM) 

2010 PCKE 103, PEEK (1912): PCSE 
104, PEEK (1913): POCE ( PEEK 
(103) + PEEK (104) * 256 - 
1),0! Rm OID POI START 

2020 T = T + Tl: HEM NEW PGM EMD 

2030 POKE 175, (T - INT (T / 256 
) * 256): PCKE 176, IHT (T / 
256} : REM NEW PGM EMD 

2040 GQSUB 3210 

2050 VmB 6 

2060 PKI^f^ " (1) STAKTIN3 AND EH 
DIMS PPOGRAM": PRINT " H 

ARKSBS HAVE BEEN RESET.": PRINT 

2070 HUNT " (2) "T2" BYTES GENE 
RATED THIS BCK.": PRINT 

208O raiMT " (3) SINCE LDC #655 
35 IS 'FCRBUfflEN' BY";: PRINT 
APPLESOFT, YOU CftNHTT 



DELETE IT IN": PRINT " A 

CCNVHJTICNAL MANNER. TO DE 
LBra": PRINT " 1HE BCK, 

LCftD YCU8 PHOGRAM AND THEM"; 
: PRINT " POKE ■T1",0:PO 

KE "Tl + l',0." 
2090 VDffl IB: HTAB 12: INVERSE : 
PRINT " END OF PEOGKiH " 
: NORMAL 

2100 POKE - 16298,0: PCKE - 16 

300,0 
2110 KKE - 16368,0: TEXT 
2120 CALL - 998 
2130 HTO 
3000 REM 

HEADERl 



=": GCOJB 61 



3010 HCME 

3020 Tr$ = ■=== 

CO 
3030 ITS = "DRTft INPUT": GC6UB 61 

00 
3040 TTS = -- "; GOSUB 61 

00 
3050 RETURN 
3100 REM 

HEADER2 



GCeUB 



GCEUB 



GC60B 



3110 HOME 

3120 ITS = " 

eioo 

3130 TT? = "SAMPLE OOlPUr" 

6100 
3140 TTS = "=^^^^" 

6100 
3150 RETURN 
3200 REM 

HEADER3 



3210 EKSIE : VTAB 2 

3220 TTS = . .:l :.:^ = = " ; GCaJB 

6100 
3230 TT5 = "EOi YCOR IMTEEEOT" : GOSOB 

6100 
3240 TT5 = " ' ■■ ■ ■ ■■ ":GQSOB 

6100 
3250 RETURN 
3300 REM 

HEADER4 

3310 HOKE 

3320 TTS = ■ ■--" ' " ': GC6UB 

6100 
3330 ITS = "ISSIRUCTICKS"! GOGUB 

6100 
3340 TTS " " ■ I ': C30SUB 

6100 
3350 RETCBN 
5000 Rffl 

INSIRUtTICKS 

5010 GOSUB 3310 

5020 VffiB 6: PRINT "DO YOU WAOT 
ISSIRUCTIOKS? (Y/N) "j: GET 
IS: IF IS " "N" THEM RETURN 

5030 IF IS < > "Y" THEW VTAB 6 
: ffEffl 1: GAIL - 868; GOIO 
5020 

5040 PC»E 34,4! aCME 

5050 PRINT " l.IN APPLfSOFT HD L 
INE NOIEEK GREATER": PRINT " 
THAN 63999 C?^ BE TYPED I 
N FROM THE" : PRINT " KEVBO 
ARD. THIS DTILTTY WILL ENAB 
LE": PRINT " YCU TO CREATE 



A BCK CCI1SISTI^G OF"; PRINT 
" MULTIPLE REM ^^K^EME^fIS 
WITH LINE" 
5G60 PRINT " NUMBER 65535, THE 
HIGHEST THAT CAN BE";: PRINT 
" PEODUCH) WTTH TWO BYTES 
(SFFFF).": PRINT 
5G70 PRINT ■ 2.'raE CCHTEHTS OF T 
HE BCK MIOIT CCNTAIN";: PRINT 
" COPYRIGHT MATERIAL, EXPL 
ANfiTORY DATA,";: PRINT ' O 
R EVaJ A TABLE OF VARIABLES. 
ITS" ! PRINT " tSE WILL B 
E LIMITED CKLY BY YCUR": PRINT 
IN3ENUITY!": PRINT 
5080 PRINT " 3.TO USE THIS UTILI 
TY FIRST LQftD YCUR": PRIW " 
PROGRAM AND TSW 'EXEC OR 
EDIT BCK": PRINT " CREATOR 
'.": PRINT 
5090 GOSUB 6120: HOME 
5100 PRINT " 4. PLAN THE NUMBER 
F LINES TO USE FCR": PRINT " 
PRINTIHS TEXT (17 CHMIACT 
ERS PER LINE'f! PRINT " IS 
MAXIMAL) . DO HOT CCWCERN Y 
OIRSELF-;: PRINT " WITH Tfl 
E fCniK. BOX, SINCE IT Will. 
BE';: PRINT " CTHSTRUCTED 
BY THE PIiDGI«M, SIMPLE" 

5110 PRINT " EDITIN3 FEATURES 
Mffi AVAILABLE, AND"; PRINT " 
PRESSING A WRCHG KEY LIKE 
LY Wlli, HTT" : PRINT " CSffi 
E 1HE PROGFSiM TO CFftSH BBCAU 
SE OF";: PRINT " EXTENSIVE 
ERRt»< IPAPPire;.": PRINT 
5120 PRINT " 5.A SAMPLE BCK IS P 
EDDOCED. YOU SHOULD";: PRINT 

CHECK IT FCB M;CURACY. 
IF THE OUTPUT" ; : PRINT " I 
S ACCEPTED, THE BOX WILL BE 
APPENDED";: PRINT " TO THE 
PROGRAM IN RAM HEHCSY.": PRINT 

5130 FEINT " 6. BE SURE TO OBSERV 
E IKE DATA PRESEHTED" j : PRINT 
■ AS THE PEDGKiH ENDS. EiA 
VE FONlli" 

5140 GOSUB 6120 

5150 PCKE 34,0; REmRN 

6000 REM 

TITLE FftGE 
6010 REM TITLE RAGE FROM 
6020 Hm SF APPLE CCKE 

6030 PCKE - 16363,0 

6040 VTAB 6:TTS = "CREDIT BCK OR 

EATOR" 
6050 GOSUB 6090: VTAB 9:TTS = "B 

Y SANDY MOSSBSiG" 
6060 GOSUB 6090 

6070 VmB 15: PRINT 'THIS UTILIT 

Y APPENDS TO THE EllD OF YCUR 
": PRINT "PRDGRRM A BCK THAT 

MAY CCWTAIN CREDITS,": PRINT 
"COPYRIGHT DATA, ESiPLANATORY 

MATERIAL OR" : PRINT "A VARI 
ABLE TABLE. BE IMAGINATIVE! 

6080 GCSUB 6120: RETURN 
6090 REM 

PRINT CENTER 

6100 Vmmi = 20 - ( LEN (TTS) / 2 

) ! IF WUmi < = THEN PRINT 
TTS: RETURN 

6110 HTAB WUHH: PRI^fT TTS: RETURN 



{Continued on page 63) 
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I GET FREE SOFTWARE FOR YOUR APPLE l| 

HOW? JUST ORDER ONY OF THE ITEMS 8ELOW, AND SELECT YOUR FREE SOFTWARE FROM THE BONUS 
SOFTWARE SECTION. USING THE FOLLOWING RULE: FOR THE FIRST $10aO0 WORTH OF MERCHANDISE 
ORDERED TAKE 1 ITEM; FOR THE NEXT $20aO0 WORTH OF MERCHANDISE ORDERED TAKE ANOTHER 
ITEM; FOR THE NEXT $30a00 TAKE A THiRD ITEM. ETC, ALL AT NO COST, 



HARDWARE BY APPLE SOFTWARE FOR APPLE 



APPLE il PLUS, 48k 1199 

DISK DHIVE-CONTROLLER 1331 535 

DISKDRIVEonl, 4eb 

Langusae System >v. Pwcal 397 

Silentype Prmiw & Intertate 360 

Infogef or Applesoft Firmware Cird 159 

Graphici Tablet MS 

Parallel Printer Interface Card 149 

Hr-S^ieed Scflal Cvrd 15b 

CBntroniia Pirallel Intfc*. 175 

HARDWARE BY OTHERS 



APPLE FORTRAN 

APPLE PILOT 

DOS 33 

DOS TOOL KIT 

APPLE PLOT 

D, J. REPORTER 

a. J. NEWS 

PORTFOLIO 

SHELL GAMES 

ELEMENTARY DEAR APPLE 



IBB 
125 
SO 
6G 
50 
46 
45 
45 
15 
25 



WORD PROCESSING 
SOFTWARE FOR APPLE 



HAYES MICROMODEM I 

HAYES SMART MODEM 

HAYES SIOO MODEM 

VIOEX VlDtOTEHMBOW. GRAPHICS 

MICROSOFT ZBO SOFTCARO 

MICROSOFT 1GK RAMCARD 

CORVUSICMBHABODISK 

SSM AlO SERIAUPARALLEL AST 

MICR&SCI DMi a ConmJlH 

TYMAC DOUBLE DOS 3. J/3.3 

VIDEO MONITORS 

Leeds- Video- 100 1 2" saw w/ObIg 
iKdu I?' GrBH^ w/CabIa 
Leidsi 13" COLOR MONITOR & CUila 
SUPfl-TERMRF MODULATOR 



300 

239 
339 
276 
299 

199 

4750 

109 

496 

X 



139 
1BE 



29 



SOFTWARE BY OTHERS 

APPLE FORTRAN by MICROSOFT 159 
APPLEBASICCOMPlLERbyMICROSOFT 316 

APPLE COBOL by MICROSOFT 699 

VISICALC3.3 109 

VISIPLOT T5G 

VISI PLOT/VISIT REND 199 

VISIOEX 109 

CCA DATA MGT 79 

OB MASTER by CTONEWAftE 189 

DATACAPTURE 4.0 65 

z-TERM es 

OKt-LINE APPLESOFT COMPlLEft B9 



HARDWARE BY 
MOUNTAIN COMPUTER 



SOFTWARE BY PEACHTREE 



Cloclii/Calenilar Card 
A/D a D/A Intartace 
ExpanBiDD ClkBBii 
ROMplut Card 
htork Sane Card ReUar 
CPS Muhififnctkin Bd, 



239 

319 
666 
135 
996 
23B 



GEN. LEDGER 

A/R 

A/P 

PAYROLL 

INVENTORY 

MAIL LIST 



219 
219 
219 
219 
219 
219 



PEN-ULTIMATE 


235 


VllOflD STAR 


245 


EZWRITERProl Syj. 


195 


EZ WHITER 


S9 


MUSE SUPER TEXT II 


139 


APPLEWBITER 


6S 


PROGRAMMA APPLE PIE ZO 


110 


MAGIC WAND 


345 


WORDPOWER 


50 


EPSON PRINTERS 




MX ■ TO w/Gi»ftr« 


415 


MX SO 


516 


MX - 90 FT 


616 


MXeOw. GBAFTBAX 


576 


MX-BOFTw. GRAFTRAX 


675 


MX- lOOFTw. GRAFTRAX 


776 


APPLE PAR. INTFCE (lot all EpionJ 


76 


MX ■7a«) FRICTION FEED Adaptw 


75 


OTHER PRINTERS 




IDS 446 v.. GRAPHICS + 2K »ufl. 


760 


IDS 460 k GRAPHICS 


899 


IDS 460 


826 


IDS 660 


1099 


IDS 660 W.GRAPHICS 


1160 


CENTRONICS 737 


099 


CENTROKICS 730 


799 


CCS Oanmnia Par. 1 rrtfn a Otilf 


136 


NEC SPINWniTEH 5610 RO 


2796 


C ITOH 26CPS DAISVWHEEL 


1760 


C ITOH 46 CPS DAISY WHEEL 


2026 


WATANA9E MI-PLOT PLOTTER 


1160 


OIABLO S30 DAISY w. p. Wheal & Rib. 


2360 



BONUS SOFTWARE SECTIONI 



(-•( Ul Acquaint yau wJlh MES&AGE'MAKIF<4G SOFTWARE. Juit pL*C« m* dllH In Ih* APPLE, tnmt Ih* tlht ""i EAlDifui, dynamk: maHsvai appHf 
on in* tcr*«n> of TV ■!■ connvclvd to t*** compucar. Uh itt* loftuwi lo broadcAn mtMAQM on TV Kfaana Jn achDola, hotpJuli, factorLai, Btara 
window, ajihlDlt booih^ «tc. Tha faiiawina proiirarn it our rat«»f r«l*aH; 

SUPER MESSAGE: Craacaa maa— )■■ in fuH-paga "chuniti", Eich m*«Ha* allowi ranmtnn of m^Htd tvphtvIHh lyp"!'** 'rtd eoiwi, Jn tnUta 
uppv and lowar cam. Srylai rang* tfom r*iiular APPLE chvKtvi, up to dQubl*-tU«, doubla-wldlh chvBcfafi wiTh a hatvy, bold fortt. Six dolori m^y 
ba uiad for aach diffarani lypa^tyi*, V«*ticat and horhiontal csnvrlng «f« avai^ab^, and wofd-wiap it au»mailc, Umr* can chaki paj— »o*Tltar to 
maUB mulikpaga maiaavai. Pagai can b« aOvancvd minually or automatically. MulH-paga nittia^ai on ba mrad k> diK or r*c*llad innvntly^ 
f^EOumes 4*« a, pom Applesoft 9BQ. 

APPLE PLOTS VOUn OATA it KEEPS YOUR RECORDS TOO! APPLE DATA GRAPH 3.1r PlDll up to 3 ■upvlmpowd curvH On tha Hl-iaf Hp*an 
both X A Y ann dlmanilonAd. Each cirrwa cdnilfti erf UD ro 1 20 D>«caf of data. OrapKican ba rand to d4K and racallad Irrimtdlata^v lor updatino. 
Up TQ lOOgraphi can ba itorad d" th* »an>a dive Qraat for Stock- mark at Charting. Builnaaa ManaQaman^ and Chaiaroom Inarrucllonl 
PEQumES 4B>; a hom Applesoft tx 

APPLE record MANAGER: Allows irorr^plaia fl^ lo ba brought Into mamory ao that racord laarchaa and man ipu lit torn ara hrtabntanaouL 
Racordi withFn any fil* can coniaJn up fa 70 fFatd^ w\Kh UHf-daflnad haadlngi. information can ba itrlng or nuinark. Uaar't can browaa thru *1lai 
uiJng paga-forward, pava-bacliwrBrt» or 'andom-aaarch compnindi. Racordt can aatlly baaaarchad, altarad or tortad ai will. Fitaa can b* ttorad on tha 
■ama driva ai tha maata' fograai of on anothar, if a aacond drtva la avaJlabl& ftacardio* fir«i can ba prlnud. If daalrad, AiUltlonal modulta conting 
afa a statistics <MTEflFACE, CHECKBOOK, MAJLING LIST flr DATA-ENTRV. 
REQUIRES 48K A RO*^ APPt ESOFT . ........... (40 

APPLE LITEFIATURE DATABASE: aCioAt rapid rairlavaJ jvla haywo'di) ai ralarancaa f rorn taiaJ APPLE lltaraiura Viru iWd, On b.2b" tt\tk. Each 
ar>irv in rha data baia conaiitiof thaarllclaH aLiThor-nam*, par lad lea i-narna, data of itaua, A paga noii Tlia d«(Aaia li Intandad to aupport iaria maga- 
rlnaf liaa whtch wcu4 raqulra lanfflhy manual aaarching to racovar Infofmation, Annual updaiai will ba availably 
REQUIRES *&K. ROM APPLESOFT. . . , . , SGO 

WORDPOWER; la i aimpla, PO**rf -I, ^h c(»% ILnfrOrtanvad wo>d-cocauor provan^ 1I O***! a fan machbia languafla FIND ft REPLACE. Tax^c-i 
09 Idtad to Kfaan or prlnHr, HJThai Alihout Jlna-nurribarf. Lowaf-caia adaoura ara lupportad- Vou «nmvB*fll«. mova ffoupa of llna^ and aatlly 
add, changa, or dalftia llnaa, WORDPOWER can ba utad to craaBand malnuhn EXECfllaa. Jr can alio bauiad at a rapid, unttructuradH lirfDrmallorv 
ftoragaand rarrkval lyftvm via Iti rapid taarch capablMttaa. 

REQUIRES; 4eK. ROM APPLESOFT - , . , . *B0 

LASELMAKER: allowa utari to qutctrly (^**i* addran labalt. A ghian labar may ba ganarafad In aoy quantity from 1 to 337S7. Spaca ■■ BlluwVd on 
labali tor a psiaonaP and company nama, but V>t ipaca l> automaElcaily cloaad up if only a fiaraonal iwrna li anTarad. Spac4 4 alto allowad fo* foralgn 
countria^ Tha program can alao ganarata lal^la lor ptlca-lao^ part numbari anri mal^matatan tuch aa "ftUSH", "FRAGILE"^ ate, A lalt- 
Jnixamaming faatura aNoiwi thaair^ifcltata to ba producad, wJth a data, and numbart running from aOOO 10 cW9k An adltof la provMad for adiftng 
labali prior to printing. AM labait may b* lawad lodlikfor hial«nt racalL 
REQUIRES 4aK & ROM APPLESOFT. *3G 



TO ORDER: Use phone or raa We acccpl VISA, MASTERCARD, COD% pmoiul 
checks & money orders. Add 4% for aedit card. Customer pays handtir^ on COD orders, 
Foreign orders must be in American DoHars &. include 10% for handling. Connecticut 
residents add 7.5% sates tax. 



CONNECTICUT INFORMATION SYSTEMS CO, 
218 Huntineton Road, Bridseport, CT 06608 (203) 579-0472 
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Listing 1 fCuniiauedl 


6120 


VIBB 23: HTfiB 12: PRIKT " [E 


SC] tc 


END" 


6130 


VTftB 24: PRIMT TftB( 8) ; " [S 


PACE] 


TO carriHJE "; 


6140 


PRItn 


•'( ]";: HTAB 29: GET 


ZZ?: IF ZZS = QES (27) OR 


ZZS = 


CHRS (3) THEN TEXT : 




X)ME 


: END 


5150 


IF ZZS = CHKS (32) THEN 




RETURN 


S160 


CALL 


- B68: CALL - 1008: GOTO 




6140: 


HEM 


65535 


RfW 


********************* 


65535 


REM 


* * 


65535 


REM 


* CREDIT BCK * 


65535 


REM 


* CREATOR * 


65535 


REM 


* * 


65535 


REM 


• S. MDSSBEKG, M.D. • 


65535 


RIM 


* 50 TW/Xm' RD. • 


65535 


REM 


* Ksa: CHEETtai * 


65535 


P£N 


* NE:1'J YCRK, 10573 * 


55535 


REM 


* * 


65535 


REM 


* (914) 937-6400 * 


65535 


REM 


* * 


65535 


pm 


***************:****** 



Listing 2 

10 REM CREDIT GOX CREATOR 
EKEC FILE CREATE 

20 DS = CHRS (4):FS = "CREDIT BO 
X CREATOR" 

30 PRIOT DS"OPE^rFS 

40 PRINT DS"l'flaTE"FS 

50 PRIHT "PCWE 1912,PEEK (103) :? 
CKE 1913, PEEK (104):FOKE 191 
4, PEEK (175):PCKE 1915 .PEEK 
(176)" 

60 PRI^7^ "PCKE 103, PEEK (175) :P0 
KE 104,PEEK (176) + 1:PCKE ( 
PEEK (103) + PEEK (104) • 
256 - 1),0" 

70 PRIHT "RDN CRBC" 
80 PRIHT DS"CLCeE" 



AT LAST.. 

...FQR 

□5J 



A menu driven 
data base management 

system for 

multi-data base 

applications 

Data base 
management svstem 

S200.00 

plus 

Accounting 

package 

S150.GO 

Stock portfolio 

SI 50.00 

Stock financial 
statement anolysis 

S250.00 

for C8P/C3 systems 
Lindei OS65U 

Genesis Information 
Systems, Inc. 

PO. Boi 3001 • Oulutfi. MM - 55803 
Pnone 21fl-724-39M 



JUCftO 



ED-SCI STATISTICS 

FOR THE PROFESSIONAL A CCHPLETE STATISTICS 
AND DATA MANAGEMENT PACKAGE 



Data Entry and Filing 

• By Variable Name and 
Case Number 

• One-Time Data Entry 

• Easy and Rapid Editing 

• Data Entry Workstieets 

Data File Manipulation 

• Add New Variables 

• Add or Delete Case Values 

• Create SUBFILES By User 
Defined SEARCH & 
SELECT Criteria 

• Merge Files 



Statistical Calculations 

• Mean, Std, Dev„ Std. Error 

• Coefficient of Variation 

• Frequency Distribution 

• Unpaired t-Test 

• Paired t-Test 

• Mann-Wtiitney U Test 

• Wllcoxon Paired Sample Test 
•Ctii-Square Test 

• LinearRegression 
•Correlation 

• One-way ANOVA wltti ttie 
Newman-Keuls Test 

• Hard Copy of Data & Results 



Statistical Calculations can be made on VISICALC* (DIF) 
and DATADEX * FILES. Graptiic Plotting of all ED-SCI 
STATISTICS Data Files can be done with APPLE PLOT.' 

Only S95.00 brings you the ED-SCI STATISTICS instruction 
manual, the Master Program Disk, and a Back-Up Disk. 

See ED-SCI STATISTICS at your local Apple Computer store. 
Dealer inquiries invited. For information please phone or write: 

Ed-Sci Development 
460 Beacon St. San Francisco, CA 94131 (415) 282-7020 

ED-SCI STATISTICS requires an Apple II with the Applesoft or 
Language Card, or an Apple II-I-, 48K memory, and al leasl one 
disk drive with DOS 3.3 (16 sector). 

'Apple IS a regisleied trademark of AoDle Computer Inc. 
VisCalc IS a regisfered Iradeinark o( Personal Sotlware Inc 
OATAOEX IS a registered Irademark or Sonoma Sollworks 



GOSUB'S MX80/70 FRICTION FEED KIT 

Only $49.95 ppd 

• Use Single Sheet Paper 

• Use Inexpensive Roll Paper 
■ Use Your Own Letterhead 

• Does Not Affect Pin-Feed Use 

Printers 

Epson MX80 $515 ppd Epson MX100... ,$625 ppd 

Microtek's BYTEWRITER-1 $399 ppd 

The Printer Stand $29.95 

SAVE MONEY AND SPACE: Holds almost any printer that 
uses 9V?"-S!ze paper or forms. Made from Vi" acrylic, 
allows 3" of paper or forms to be stacked under printer. 
Great for use with bottom load printers! Fits MX80/70, 
MIcroline BO'S, BASE 2-850. Bytewriter-1 and many more! 

Software for ttie VtC 20 and PET 

Math Huddler and Monster Maze $14.95 

Household Finance Parts 1 and 2 ...,.,,.... $34.95 

Seawolt, Bounce Out and VIC Trap. . . $24 95 

VIC 20 Bioihylhm Compatibility $ 9.95 

VIC Lemonade , $1495 

AMOK $18.95 

ALIEN BLITZ $18 95 

VIC Music and Joypatnting $ 9,95 

PET Apple Atari TRS-BO' 

Nukewar Tanklics Bl-Bomber 

JW/dway Campaign Planet Miners 

All just $14.95 e&cti! 

(Kansas residents add 3% sates lax) 

GOSUB GOSUBInt'l.lnc. 

PO Box 275 501 E.Pawnee, Suite 430 

Wichita, KS 67201 Wichita, KS 6721 1 

(316) 265-9992 (316) 265-9653 

'(TRS-80 is a liaaemark of Tandi/ Coro) 
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NOW TWO LOCATIONS 

SAVE TIME • SAVE SHIPPING 



Ml Computers 
ATART for people" 




800.„ S699 



'TM 
J10 Recorder 
810 Dt5c Drive 
822 Prinlei 

825 Prinle' ,,- 

B30 r^oderti 

830 Prmler , . 

850 intprlace 

New DOS 2 Sy5lem 

CX30 Paooie 

CXdO Joy Slich 

Cxe53 16K RAM 

Microleti 16K RAW 

Microlek32KRAM 

On« V**' exivnded warrinty 



159 00 
UH 00 
$359 00 
Se29 0O 
S159 0O 
1269 00 
1159 00 
. 121 00 

S1800 

siaoo 

189 00 
175 00 
SI 69.00 

..tso.oo 




ATARI 400 

16K. . . . $329 
32K. . . . $478 
48K. . . . $555 



ATARI SOFTWARE 

CXWa Woro P'0ce5S0r 

CX40J PILOT 

CX413 Microsoll Basic 

CX4101 Invilation To Progiammg I 

CX4I02 KingOom 

CX4l03Slali5lics 

CX'IOJ Mialing Lisl 

CX4I05 Biackiach 

CX410S Invilalioii 10 Programing 2 

CX4r07 Biorylhrn 

CX4 108 Hangman , ..' ,„._, 

CX4109 Graph II . , 

CX4110 loucli Tvcino 

CX4008 SPACE INVADERS 

CX01 12 Slales & CaDi'ais 
CXJH' €l>ropeari Courlries & Catxlal^ 
CXJ1 ISMorigageS Loan Analysis 
CX41 16 Personal Filness Program 
CXai " (nvilalion To Programing S 
CX'in8 20Conversalionai Languages [ea I 
CXJ12' Energy C;ar 
CXI.JOOI EOucalional Maslei 
CXSOOi 17 laik S leach Serres lea I 
CX9106 Bona Analysis ,. . . 

CXBIO' Slock Analysis , , . 

CXei01 Slock Cnariing , . 

CXL4002 Basic Compjiing Language . 

CXL4003 AssemOler Editor 

CXL400i SasketBaii 

CXL4005 Video Easel 

CXL4006 Super Bieakojl 

CXL4007 Music Composer 

CXL400e Chess 

CXL4010 3-D Tic-Tac-Toe 

CLSaO'l STARRAIDERS 

CXL4012 MISSLE COMMAND , 

CXL4013 ASTEBOIDS 

CXL40I5 TeleLink 

Visicalc 

Lerle' Perleci IWorO Processor) 

Source 

0X481 

CX4B2 J109.i: 

CX483 S54.0 

CX48J S319C 



ins 00 

168 00 
168 00 
11700 
113 00 
11700 
II700 
113 00 
120 OO 
11300 
11300 
iWOO 

120 00 
. 132.00 

11300 
113 00 
SI 3 00 
159 00 
SJOOO 
IJ5 00 
SI 3 00 

121 00 
SJ3 00 
120 00 
120 00 
120 00 
II6.O0 
146 00 
134 00 
124.00 
130 00 

. 146.00 

. 130 00 

124.00 

139.00 

132.00 

S32.00 

S2D.aO 

1149.00 

1109 00 

189 00 



PRINTERS 

Cantionics 739-1 $649.00 

DlablQ 630 Special 11799JXI 

Epson 

MX70 1369,00 

MX80 1489.00 

MX80FT . , Call 

MX100 Call 

NEC 

8023 1639.00 

7730 Call 

7720 Call 

7710 Call 

Okidala 

82A 1499.00 

83A 176900 

84 11129.00 

citpn staiwritBt 

25GPS-P -- .i;i329.00 

46 CPS-P ^69900 

Paper Tiger / 

445G / 169900 

460G 1899.00 

560G 1112900 

lalley 

8024-7 11399.00 

8024.1. 1162900 

Xerax 820 

SyslemlS'/i" 12460.00 

System II 8'' , 12950.00 

CPM5V. S169,00 

Word Processing S429 00 

Super Calc 1269.00 



Alarl 
Microtek 16K 164 00 

32K 1129.00 

Intec 32K 113900 

48K 121900 

Ramcrom 128K 1519.00 

Apple 

Microtek IBK 194,00 

32K 1129.00 

Commodore 

a4K upgrade 1389,00 

Hewlett Packard 

16K upgrade 1249 



Instruments 




TI-99/4A $379 



32K Expansion , 
PHP Punier Solid Slate 



.1329.00 
. S319.00 



PHC 004 TI.99I4 Hume Computer 

PHP 1600 Telepnone Coupler 

PHP 1700 RS-23 2 Accessories inteitace 

PHP 1800 Disk Drive Conlfoller 

PHP 1850 Disk Memory Drive 

PHP 2200 Memory E.pansion |32K RAM) 

PHA2100RF Modulator 

PHP 1100 Wired Remote ConlrollerslPairl 



1399 00 

S169 00 
1169 00 
S239.00 
1389 00 
S3I900 
S43 00 
131 00 



PHM 3006 Home Financial Decis 

PHM 3013 Personal Record Keep 

PHD 5001 Mailing List 

PHD 5021 CheckOook Manager 

PHM 3008 Video Chess 

PHfi 3010 Physical Filness 

PHM 3009 Fooiba 

PHM 3018Uideo Games 

PHM 3024 Indoor Sor;cer 

PHM 3025 Mino Challengers 

PHM 3031 The Allac" 

PHM 3032 Blaslo 

PHM 3033 Blackjack and Poker 

PHM 3034 Hustle 

PHM. 3036 Zero Zap 

PHM 3037 Hangman , 
PHM 3038 Connect Four 
PHM 3039 Yaliliee 
PHM 3017 Terminal Emulator 
PHM 3026E.iended Basic 
PHM 3035 rerm.n^i e^„iai™ 



ons 
"9 



126 M 
S43 00 
160 00 
I18D0 
16000 
12600 
126 00 
126 00 
S26 00 
122 M 
136 00 
S22M 
122 OO 
122 00 
118 OO 
118 00 

si8oa 

122 00 

13900 
1S8 0D 
145 00 



HOW TO ORDER; Plione orders invited or send ctieck or money order ana receive tree Bhipping in the conlirwnlal United States. PA residents add 6% sales lai. 



computer mail order west 
800- 648-3351 

IN NEVADA, CALL (702) 588-5654 

P.O. BOX 6689, STATE LINE, NEVADA 89449 



TOSAVEYOUMOREl 

COSTS* SAVE SALES TAX 



WKSt HEWLETT 

mL'nM packaro 




NEW HP-125 

HP«S3 

HP-S5 leK Memory UoOule 
5'. " Dual Masref DiscDri^e 
GFapf>ic5 PloMer (72?5Bh 



S2999 00 
S169900 

12139 00 

$20;9 00 



NOW IN STOCK! 

The new HP41CV Calculator 



Call 1oi HP Soil ware PncebS Inrormji 
Call lor CalcuLalor prices 




HP«85 $2479 



Terminals 

Te^flvldeo 

910 SS7900 

912C S699.00 

920C - $749.00 

960 , 1939.00 

CalMor compulera 

Zenilh 719 1749,00 

Adds - ■ . ■ SM9.00 

Monitors 

Amdei \2' BSW (l-ig.OO 

12' Green J169,00 

13" Color J349.00 

Sanyo 1!" BSW $359.00 

13" Green S269.00 

13- Color $a49.00 

Tl W Color S3J9.00 

Modems 

Novation Aulo ■ . S239 00 

D Cal , t'S9 00 

Cal J159.00 

HAyes 

SmaK $23900 

pHsneei La?e' Disk $59900 

BSR X 10 Systems 

PK 500 $84,00 

LM501 ,$16.00 

AM611 il'-OO 

AM2e6 ii?-oo 



CBM 8032 
$1069 




^KL^UIIIIIILJLIUI C WoraPro4P„s 

Conmiodore Tafc Package 

8032 S1069.00 Visicalt: 

4032 $969.00 BPir.pneiai Leogpr 

4016 1769.00 OZZ Inloimabon Syslem 

6096 JI56900 Dow Jones PorHoliO 

Super Pel S1599.00 Pascal 

2031 $52900 Legal Tpme Accounlinq 

8050 $129900 WcraCtallSO 

4022 S599.00 Power 

C3N $63,00 Sockei ? Me 

Jinsam 

Word Pro 4 Plus.. ,,.$399.00 MAGIC 

Word Pro 3 Plus 1199.00 The Manager 

Sotlforn 



$299.00 

1329 00 

S399O0 

$149 00 

$329 00 

$289.00 

J129O0 

$239 00 

$449 QO 

$289 00 

$89 00 

$20 00 

$Caii 

ICa" 

$209.00 

$129.00 




VIC 20 $259 COMPLETE 



ViC- 
Vic 
Vic 
UIC 
VIC" 
VIC 
VIC 
VIC 
VIC 
VIC 
VIC 



IV Mofluai $1900 

Casselle .. $69 00 

6 Pacl\ Program %AA 00 

i530Commodore Ddta55elle ... S5900 

1540 Disk Dirvf $49900 

1515 VIC Graphic Primer . .. $39900 

1210 3K Memory E. [lander S3: 00 
inOBK Memory £■ pander S63 00 
1011 nS232C Terminal IrTerlace S43 00 
11 12 VIC IEEE 488ln[erlate $86 00 

1211 VIC 20 Suoc e. pander $63 00 



VICi2i2Pfogramnie'5 Aid Carinoge 
V1C1213 VICMO^ Machine Language Mohiior 

VIC1901 VIC AVENGERS 
VIC1904 SUPEfiSLOT 
VIC1905 SUPER ALIEN 

UIC1907 SUPER LANDER 

VIC1908DHAW POKER 

VIC1909 yiONIGHT DRIVE 

VT106A Recrealioh Pack A 

VT107A Home Calculation Pack A 

VT164 Programmable Characle'/Gramegraphics 

VT232V1CTeriri I Terminal Emulator 



$45 00 
$46 00 
$33 00 
$23 00 

$1900 
$23 00 
S23 00 
$23 00 

t4J 00 

J4J0O 
$1200 
S9 00 



Add 3% for VISA or UC Eguipmenl subject lo price change and auailabilJly wilhout notice 



computGr mail ord€r east 
800-233-8950 

IN PA. CALL(717) 327-9575 

501 E. THIRD ST., WILLIAMSPORT, PA 17701 



Lazer isn't afraid to compare! 

(because we have the best lower case system available.) 

Despite the (act that we were one of the first manulacturers to produce lower case equipment tor the Apple II, Lazer 
Microsystems products are still the state-ot-the-art. Besfde the obvious price/performance advantage we have over the 
competition, our products are expandable. Lazer is constantly introductmg new products including our Lower Case - Plus 
II, Character Set * Plus (that adds 2 additional character sets to the Lower Case * Plus], and our new "Double Vision 
+ Plus" (or owners of Computer STOP'S Double Vision BO-column board. 

Lazers products are compalable with more word processors than anybody elses Our Lower Case * Plusiscompatable 
with Easywnter and unmodified Apple writers None of our competitors below can make that claim In fact, BASIS' board 
isn't even compatable with Programma's PIE! The following chart lists Lazers superiority over the competing units. 

rLC- Lu*pr Case ' Plu$ lC"" Lower Casp • Plu^ H KB- Keyboiiri] - Plk>5> 

Paymar KB+/ KB+/ 

Feature LCA-1 LCA-2 VIDEX BASIS VISTA LC+ LC+II LC+II LC+ KB+ 

True ASCII upper/lower 

case display YYVYNYYYYN 

Inverse Lower Case N N rev 7 only N — Y N N Y — 

Font Size 5x7 5x7 5x8 5x8 — 5x7, 7x8 5 x 7 5x7 5x7. 7x8 — 

« o( on-board character sets up to 4 

1 1 1 1 — (2 std) 1 1 up to 4 — 

Pseudo-descenders YYNN — YYYY — 

True descenders N N Y Y — optional N N optional — 

Optional fonts avail. (ROM, disk) NNNY — YNNY — 

2716-compatible character 

generator compatable with fonts NNNN — YNNY — 

created by HIRES character 

generators 

On-board graphics character setN N N N — Y N N Y — 

Software provided on diskette $5 extra NN — YYYYY 

Single board works with all Apples NNNNYYNNyy 

Expandable System NNNNNYYYYY 

Extensive user Documentation NNYNNYYYYY 

High quality PC board M_YYY Y — Y YY 

Resel key disable NNYYNNNYYY 

Shift key mod NNYYNNNYYY 
All 128 characters available 

from keyboard — _fsj n — — Y Y Y 

Type ahead buffer NNNNYNNYYY 

# of characters in buffer — >_ _ 4q 64 64 64 

Ability to clear or turn off buffer ____m__y Y Y 

PfllCE 59.95 4995 129.95 125.00 49.95 64.95 29.95 129.90 164.90 99.95 

Don'Isettle tor anything less than the Lower Case -i- Plus, Lower Case* Plus II, or Keyboard + Plus If your dealer doesn't 
stock our products give us a call, we'll try to connect you with a dealer in your area. 

Before you buy a lower case system for the Apple II, call or write for our tree booklet "Keyboard Enhances/Buffers and 
Lower Case Adapters From The Inside Out " This booklet explains the advantages and disadvantages of using a lower 
case adapter in your Apple II 

Lazer products are carried by reput- State of the art performance, software Visicalc Users! Now you can 

able dealers all across the world. If your compatability, and exceptional value have lower case on your VIslcalc 

dealer cannot provide you with a make Lazer's products the best there are! Screen, onfy from Lazer. 

demonstration of our equipment and , „ „, ,_, „^ ^^0 

tries to sell you an interior lower case '-°'^^' ^^^^ ^ ^^"^ f ^^ Wl^ « 

adapter, give us a call, we'll give you the Keyboard * Plus $99.95 mfM' 

location of a dealer that can show you Lower Case * Plus II $29.95 ^V^^^ -,^ ^ 

our equipment. Remember, an intel- Character Set + Plus $24.95 ^H^**^"®^^'-" ' '-'^';^/\INL, 

ligent purchase cannot be made if you Double Vision ^^ Plus $39.95 ''^^^''^ ^^»'l?iT->n 

do not compare before buying. SiWM 1041 

Lazer's Products are recommended Anix 1.0 $49,95 visicaL tm of Personal Soiiwa.B 

for use with DB Master by Stoneware, Lazer Pascal $39,95 db Master tm oi stoneware 

' Apple II ■ TM o1 Apple Computer, Inc. 
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RUNZMENU 



This routine removes the 
nagging problem of rebooting 
the Apple DOS system master 
disk upon a language-card 
system reset. RUNZMENU re- 
enters DOS using the reset 
vector, and keeps both 
Applesoft and Integer BASIC 
active. Further, it allows the user 
the option of running a menu 
program automatically. With 
RUNZMENU, it is no longer 
necessary to make all disks 
system masters in order to 
support both BASICS and 
turnkey operation. 



Frank Shyjka 

112 North Ardmore 

Columbus, Ohio 43209 



The frequent loss of the BASIC on the 
language card was causing a problem. 
My children were unhappy with our 
Apple. Oh, they loved the games and 
did the educational lessons, but the ad- 
dition of the language card caused them 
to enjoy and use the computer less. In- 
stead of appreciating the increased 
power of the language system, they 
avoided the inconvenience of the mon- 
ster called system master. 



Previously, they had jumped from 
game to game with a simple PR#6. No 
morel The other, often necessary, lan- 
guage disappeared. With the language 
card they had to reboot the monster and 
then catalog, etc. By making each 
diskette a system master, we wasted 
too much space and lost the advantage 
of 16 sectors. Computers should do 
things quickly, quietly, and simply. 



I decided to develop a program to 
tell Apple that the other language was 
still in the card. 1 decided on a machine 



language routine which would let me 
choose between simply mimicking the 
pre-language card reset, or running my 
Hello/menu program. The routine per- 
mits selection of a program with a 
single keystroke. 



After much thought I decided to use 
the user reset vector at 03F2.03F3. My 
requirements for ease dictated that the 
program should always be resident. Ob- 
viously, it had to be loaded with DOS 
and survive without harm to itself or 
the operating system. I wanted to leave 
all DOS commands fully functional, 
Don Worth and Pieter Lechner's book, 
Beneath Apple DOS, was quite valu- 
able. It listed two safe areas, the loca- 
tions $BA69,BA95, with $2C bytes, 
and $BCDF,BCFF, with $20, The final 
program used all the available bytes. 



The program is not complicated and 
has only one poor programming tech- 
nique: it contains self-modifying code. 
Self-modifying code is undesirable 
because any interruption of the pro- 
gram could cause unexpected results 
upon re-entry. That problem concerns 
SBC6D, To prevent any error, that byte 
is reset with each entry, in the in- 
itialization section of code [at SBCDF- 
BCFD), It is reloaded with the correct 
starting location, $8C [at $BCFG]. 



The program is designed to do four 
things. First, it re-enters DOS via 
$03D0 by using the reset key and user 
reset vector, and keeps both languages 
active. Then, it automatically inputs 
the command, (RUNZMENU?), 
(ZMENU? is my menu program,) Next, 
after a keyboard input of a single letter, 
it either runs the menu program or re- 
enters DOS softly. And finally, it 
restores the Apple to its normal con- 
figuration to accept keyboard input. A 
disassembled listing with annotations 
is given below and step-by-step instruc- 
tions for making your own RESET 
MASTER are listed at the end of the 
ariicle. 



The routine begins by saving the 
current input vectors. 



BCDF- 


AD55AA 


LDA $AA55 


BCE2- 


8D FE BG 


STASBCFE 


BCE5- 


AD56M 


LDA$AA56 


BCE8- 


SD FF BC 


STASBCFF 



Then we load a new input vector into 
KSWL,H at 0038,0039, 



BCEB- 


A9 6g 


LDA #$69 


BCED- 


85 38 


STA $38 


BCEF- 


A9BA 


LDA #$BA 


BCF1- 


85 39 


STA $39 



Next we call the DOS subroutine that 
redirects its own input. Attempting to 
POKE directly into this vector |$AA55- 
$AA56) will cause the Apple to reply 
strangely. 



BCF3- 



20 51 AS 



JSR $A851 



In addition, we must correct the 
problem of self- modifying code by 
resetting the starting pointer. 



BCF6- 
BCF8- 



A9 8C 
8D6DBA 



LDA #$8C 
STA$BA6D 



With the initialization completed, we 
can jump to the DOS soft entry, confi- 
dent that we will not receive a BASIC 
prompt that requires keyboard input. 
We will permit Apple to read its own 
input, 

BCFB- 4C DO 03 JMP $03D0 

Instead of looking to the keyboard, 
via the monitor, for an input character, 
we have directed it to $BA69. 



BA69- 
BA6C- 



EE 6D BA 
80 8C BC 



INC $BA6D 
LDA $BC8C 



Each return for another character 
moves the pointer upward from SBC8D 
until it loads a $00. The pointer starts 
at BC8D because it is incremented 
from BC8C before the first loading. 



BASF- 



DO 18 



BEQ $BA89 
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The branch is ro another RTS later 
in the routine to save one byte. By 
loading the entire command, letter by 
letter, we will arrive at $00 which 
signifies the end of the input table. 



Fortunately, $BA96 is always a 00 
because it is part of the read translate 
table. Having loaded the final 00, we do 
not branch. The screen now has printed 
at the bottom: > RUNZMENU? 



To find out the answer, we will 
jump to the read key subroutine in the 
monitor. 



BA71- 



201BFD 



JSRSFDIB 



When the key is pressed, the sub- 
routine will return with the ASCII 
value in the accumulator. No matter 
what the value is, we must restore the 
input hooks back to the keyboard. 
While we are doing that we will save 
the accumulator value on the stack un- 
til $BA82. 



BA74- 



46 



PHA 



Now we must restore the input 
hooks. 



Warning: pressing RESET again 
before the hooks are restored will cause 
a lockut of the keyboard and require 
rebooting DOS. This normally is not a 
problem unless you habitually press the 
RESET key repeatedly for extra effect. 



BA75- 


AD FE BC 


LDASBCFE 


BA78- 


85 38 


STA $38 


BA7A- 


AD FF BC 


LDASBCFF 


BA7D- 


85 39 


STA $39 



With KSWL,H reloaded, we call DOS 
to move the input vectors to its 
satisfaction, 



BA7F- 



20 51 AS 



JSR $A851 



Now that we have finished house- 
keeping we can find out which key the 
operator pressed. 



BA82- 
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PLA 



If the operator had wanted simply to 
reset and not run the menu program, he 
would have started to type NO. We 



would only read one letter: 'N'. (The 
routine is so fast that it would be 
finished before the 'O' could have been 
entered,] The compare instruction will 
let us find out. 



BA83- 



C9CE 



CMP #$CE 



The 'N' key equals ASCII $CE, If 
the value matches, we will branch to 
$BA8A. 



BABA- 



40 OD 03 



JMP$03D0 



That will take us into DOS softly with 
the RAM BASIC still in the language 
card — just like before the language 
card was installed! Also, tbe BASIC 
program being used is still present and 
active. 



Let us assume that any other key 
was pressed. This routine doesn't care 
if a 'Y' were pressed, or the |RETURN| 
key, or any other key. We were only 
looking for a negative response. We can 
now load a retinn and tell Apple to ex- 
ecute the command that we auto- 
matically entered. 



BA87- 
BC89- 



A9 8D 
60 



LDA #$80 
RTS 



The program is called ZMENU? for 
two reasons. First, during use, the 
question is obvious to an inexperienced 
user. And, during a printout of my 
master catalog, all the hello programs 
appear at the end. Actually, it doesn't 
matter how difficult the name is to 
type because you don't have to type it 
anymore! 



I was very pleased with myself. I 
tried BA69G from the monitor and the 
routine worked perfectly. I initialized a 
disk, I booted it. 'The reset key 
wouldn't work! Entering the monitor, 
the program worked from $BCDFG, 
Yes, BCDFG ran my ZMENU? but reset 
wouldn't. 



After some searching, I found that 
DOS sets the user reset to its own input 
point with each boot, I was determined 
to avoid BLOADing two bytes or 
POKEing values, so I changed DOS 
itself! The complete procedure is listed 
below in a step- by- step format. 



Begin by inserting your Apple- 
provided system master diskette and 
boot. Then, type >NEW, if your resi- 
dent language is Applesoft, > LOAD 
HELLO. If your resident language is In- 
teger, > LOAD APPLESOFT, Next, 
type the following lines exactly as 
listed. 



>CALL-151 

•BCDF: AD 55 AA 80 FE BC AD 56 AA 
8D FF BC A9 69 85 38 A9 BA 
85 39 20 51 A8 A9 8D 80 60 
BA 4C DO 03 

*BA69: EE 60 BA AD 96 BA DO 18 20 
IB FD 48 AD FE BC 85 38 AO 
FF BC 85 39 20 51 A8 68 C9 
CE FO 03 A9 8D 60 4C DO 03 

*BA8D: D2 05 CE DA CD C5 CE D5 FB 

•9E31: 74 9E 

-9E3C: 73 9E 

*9E73: DF BC 19 

'3 DOG 

>[NIT RESET MASTER 



This will result in your neat, new 
system master diskette having a hello 
program called RESET MASTER, This 
will load the other BASIC into the 
language card when booting. To really 
make the new diskette convenient, I 
altered the program RESET MASTER 
by putting an extra line in it. The extra 
line causes the menu program to be run 
at the end of the booting process. For 
example. 



> 240 PRINT D$; "RUNZMENU?" 
After initializing your new diskette, 
>BRUN FID 



and transfer the other version of BASIC 
and your menu program to the diskette. 
Your menu program (usually your 
hello-type program] must be saved as 
MENU?, [The question mark is part of 
the program name.] Diskettes not hav- 
ing that program will cause the routine 
to return the file not found error and 
the BASIC language prompt. 



My children are pleased with the 
handiness of our Apple again. 



Aicno 
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Bill Budge, creator of 
"Raster Blaster," needs it: 

". . .I'll never write another 
program without BugByter!" 



FEATURES 
INCLUDE: 

•All registers displayed 

•Compatible with all 
Apple languages 

•Completelv relocatable 

•Full hex and ASCII I/O 

•Multiple options while 
in trace mode 

•Literal and transparent 
breal<points 

•Resident assembler 

•Resident disassembler 

•User-definable screen 

•Ram screen dump in 
hex and ASCII 

•Comprehensive 
documentation 

•Single keystroke 
operation 

•instruction cycle 
counter 

•Hexadecimal/ 
decimal 
conversions 

•Con run in add-on 
ram card 



Who else needs BugByter? 

, , .Apple' users who want to learn machine language, 

. . .Apple programmers in need of a complete 6502 
debugging tool. 

, . , Educators who need to demonstrate the operation 
of the Apple's centrol processor, 

. . .Software professionals who need to display and 
control all 6502 registers. 



BugByter 



IS 
NOW AVAILABLE AT S39.95 

on diskette for Apple It or Apple II + 

from 

COMPUTER-ADVANCED IDEAS, INC. 

1442A Walnut Street, Suite 341 

Berkeley, CA 94709 

(415) 526-9100 



"Apple is a registered trademark of Apple Computer, Inc. 



No. 45 -February 1982 



MfCRO - The 6502/6809 Journal 



69 




Write - CM 




A computer without a word processing program is only 
being haif-utilized. And the unused half is the most important, 
because we all have reams of letters to write, scripts to type, text 
ro edit, files to keep and data to record. 

Write-On! was developed to solve all these problems, 
and more, for you. . .easily, quickly, and effortlessly. Have 

we succeeded? 
In the June 81 
issue of Byte 
magazine, they 
"reviewed Write- 
On! against the' competition. And here are just some of the nice 
things they had to say. 

"Write-On! is amazingly error-free and it ran the first 
time we put it on the computer. One of us thinks it's his choice 
of all the word processors that we reviewed." "Write-On! is a 
super word processor. .. .touch typists can enter text quickly 
and easily.. . .performs its editing chores with ease and speed 
...even provides for form letters using data files. This is a 
tremendously powerful and useful feature (especially for the 
price)." 

To continue with words from Byte, "Along with exceilentj 
human engineering, Write-On! provides superlative docu- 
mentation leads the user by the hand. . .explanations are 

clear and concise..." And... "...undoubtedly the most 
powerful features found in a microcomputer-based word 
processor." 

Our users have been sayingthe same kind of things about 

Write-On! The reason, we believe, is because of all the word- 

,. processors available, this one was designed to be user-oriented 

■;- — to be easy for non-computer types to get professional results 

with. Whether used for business, professional, home or school 

. . .Write-On! is the right one because it is right-on. 



id^ 




For the Apple Ml*? Of course. 

Our Write-On! word processing pro- 
gram is available fortheAppie III* as 
well as the Apple II*. Comes on disk, 
with its easy reading, simply explained, 
step-by-step documentation (mar- 
velously clear!). Write-On! II is $149.95. 
Write On! Ill, $249.95. At your com- 
puter store or from: 

"Apple II & Apple HI are irademarks ol Apple Computei, Inc. 



DATAMOST 

19273 Kenya St. 

Northridge, Ca 91326 

(213) 366-7160 

VISA/MASTERCHARGE accepted. 
$1.00 shipping/handling charge. 
(California residents add 6% tax) 



70 



MICRO -The 6502/6809 Journal 



No. 45 -February 1982 



Shape Manipulate 



This Applesoft program lets you 
create a shape table, delete 
shapes, add shapes from other 
tables, or change the maximum 
number of shapes In a table. 



John R. Raines 

2170 Wellesley Ave. 

St. Paul, Minnesota 55105 



The ability of the Apple's BASICs to 
draw high-resolution shapes is useful in 
animation or picture- drawing programs. 
The improvement in "human factors" 
engineering', which shape tables per- 
mit, is tremendous. John Figueras' 
shape-creating program^ makes the use 
of these shapes much more practical. 
Peter Cook combined Figueras' three 
programs with a menu, and also made 
several changes^ '. 

Although these programs contri- 
buted to my work, this program allows 
much more flexibility in manipulating 
shape tables than either of its 
predecessors. The hardware required 
for this program is 48K RAM and one 
disk drive. 

Program Description 

This program is an extension of 
Figueras' work, it allows you to IN- 
ITIALIZE a table, CREATE shapes, 
DELETE shapes from an existing table, 
ADD shapes from a second table, 
change the maximum NUMBER of 
shapes in a table, REVIEW the tabic, 
and SAVE the resulting table. The big- 
gest change in Figueras' design of the 
program is that the various functions 
are combined in one program. You 
select the functionjs] that you want to 
use by typing one-letter options. The 
various options can he used in nearly 
any order. The resulting flexibility is a 
sizable improvement. You can abort any 
command in progress and return to the 
option list by typing CTRL-0 in place of 



any input string. The code that deals 
with the option list is after line 10000. 

The CREATE section is basically 
Figueras' code, but has been adapted to 
allow a 50 X 50 grid. The larger grid 
allows much bigger shapes. As you 
recall, Applesoft will increase the size 
of shapes according to the value of N in 
"SCALE = N." The result is often un- 
satisfactory; a diagonal line may be- 
come jagged, curves cannot be simu- 
lated with any sizeable SCALE factor. 
The larger grid helps, but does not cor- 
rect the underlying problem. 

Several other small changes to the 
CREATE section have also been made. 
When you have finished your shape, it 
is displayed with SCALE = 1 and 
SCALE = 2 before it asks if you want to 
SAVE it. Both are XDRAW outputs — 
funny things happen if you plot the 
same point twice in your shape defini- 
tion and then XDRAW it. The enlarged 
version lets you assess jaggedness or 
"holes" that may appear in your shape 
when it is enlarged. Many of the prob- 
lems with shapes, which are revealed 
in this display, can be eliminated by 
more careful shape definition. By 
avoiding enlargement and XDRAW in 
the programs you write to use the shape 
tables created here, you can completely 
circumvent these problems. It is always 
easier to use SCALE = 1 and DRAW 
than to try to CREATE shapes that 
work well with SCALE = 2 and 
XDRAW. Shapes can be erased with 
HCOLOR = and DRAWing over them 
in this approach. 

If you are creating several shapes in 
one session, the option of not erasing 
the previous shape may be useful. This 
shows you how shapes will fit together 
when they are drawn later. The CREATE 
section in this progam, like Figueras' 
but unlike Cook's program, assumes 
that the first shape in shape table 1 is 
the cursor. This is set up by INITIAL- 
IZE. You can DELETE the cursor later. 



but if you do, CREATE will not work 
properly on that table. The CREATE 
section is from line 10 through line 1399. 

The INITIALIZE section just clears 
out shape table I and puts the cursor 
definition into it. This code is virtually 
unchanged from Figueras' program. 
This section begins at line 20000. 

There are two load sections: one for 
each of the two shape tables. The sec- 
ond shape table is useful only for the 
ADD shape function. The options to 
load a table are "1" or "2." Note that 
DELETE, ADD, SAVE, REVIEW, 
NUMBER, and CREATE are commands 
that only make sense after you have 
either initialized or loaded. These sec- 
tions check to be sure that the appro- 
priate tables do exist and give an error 
message if you have forgotten this step. 
Unlike Figueras' program, the location 
of the shape table buffers and their 
length are fixed in this program. The 
length is always 2048 locations. The 
load sections arc between lines 22000 
and 23010. 



The DELETE section, all new, 
removes a shape from table 1, When 
this option is selected it asks which 
shape you want to DELETE, displays it 
in two sizes and asks if that is the cor- 
rect shape. If you say "N", it asks for 
another shape number. If you say "Y", 
then it removes the .shape, moves the 
rest of the shapes to fill in the gap and 
corrects the index. The "move" is done 
by using a routine in the Apple monitor. 

When written in Applesoft, the 
move operation took many seconds. 
The BASIC code to perform the move is 
in line 21060. The actual move code is 
located after line 48000, in a sub- 
routine. The subroutine I use is gen- 
eral, and uses parameters called FROM, 
DESTination and FINISh [the latter is 
the last location from which a byte is 
moved). The monitor move subroutine 
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is listed (with the rest of the monitor 
ROM) in the Apple I! Reference Manual. 

The ADD option is for adding a 
shape in table 2 to lahle 1, The routine 
asks what shape you want, displays it, 
and asks if that's correct. If you say 
"N", it asks for another shape number. 
If you say "Y", it adds the indicated 
shape to the end of table 1 and updates 
the index. The monitor move routine is 
used here, too (see "DELETE" above). 
The ADD section is about line 24000. 



Control-O 

The CTRL-0 key returns you frotn 
whatever command you are in to the 
"option" display, wherever this pro- 
gram accepts keyboard input. This is 
implemented mainly at line 30000, a 
subroutine called by any part of the pro- 
gram which would normally do an 
"input" statement. Line 700 handles 
CTRL-0 for the cursor move section of 
the CREATE command (where input is 
obtained via a GET], Frequent use of 



CTRL-0 should be discouraged, how- 
ever, since the stack is not cleaned up 
and might eventually fill. 

The Shape Table Buffers 

The buffers for the shape tables are 
in fixed locations in this program, 
unlike Figueras' program. This saves 
some typing and has not caused me any 
problems. The buffers are just 2K in 
size and are located in the 4K of RAM 



The REVIEW command shows you 
the shapes in table I . Fewer shapes are 
shown on each frame than in either 
Cook's or Figueras' programs, because 
the shapes are potentially 50 x 50 here, 
rather than 15 x 15. When one screen- 
ful has been displayed, the program 
waits for you to hit return before 
displaying the next screenful. Shapes 
arc displayed in numeric order, from 
left to right and top to bottom. 

The NUMBER command lets you 
change the maximum number of shapes 
in shape table 1, Shape table 2 is used 
for temporary storage during this opera- 
tion and is left empty at the end. The 
new maximum may be either more or 
less than the old maximum, but must 
be at least one more than the number of 
shapes currently in the table. 



About Line 1 

If you don't know the following 
trick, and have a 48K Apple and use 
high- re solution graphics (with or with- 
out shapes], then this is the best tidbit 
in the article. With "POKE 103,1:POKE 
104,64:POKE 16384,0" before loading 
your program, you load it above the 
first high-resolution graphics page. 
There may be a lot more room there 
than below it. Below the first high- 
resolution graphics page, your program 
has from 2048 to 8191 — just 6K. 
Above it, with a 48K Apple and DOS, 
your program has from 16384 to 38400 
— nearly 22K bytes 

I have not succeeded in getting the 
variables and strings into the space 
below the first high- resolution graphics 
page, so the actual increase is a bit less 
than this. Before I learned this trick, I 
was chaining frequently to get programs 
to fit into the little 6K segments avail- 
able, I was nearly fed up with high reso- 
lution graphics because of this problem. 

Figure I shows the core layout for this 
program. Variations on this technique 
are discussed in references 5 and 6, 
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just below DOS (see figure 1]- The loca- 
tion and size of the buffers is defined in 
line 5, and it should be possible to 
move them or change their sizes just by 
changing this line (although I have not 
done so). 

ASVE is the start of shape table 1. 
BS is the buffer size. A2 is the start of 
shape table 2. The program will warn 
you if you expand table 1 so that it 
overwrites table 2, If this happens, you 
should be able to SAVE table 1 , but will 
be unable to use table 2. Conceivably 
the buffers could be expanded to 3K by 
putting them in the unused RAM be- 
tween 2048 and 8191. 

To load and use one of the shape 
tables created with this program, you 
proceed just as with either Figueras' or 
Cook's programs. First you BLOAD 
filename, Alocation [the "A" parameter 
may be needed more often with my pro- 
gram, but really should be made ex- 
plicit with any binary file for clarity}. 
Next you need to tell Applesoft where 
the table is, by POKEing the same loca- 
tion into locations 232 and 233. One 
example of this is line 26010. 

I think the Applesoft manual and 
Figueras' article, together, constitute 
an adequate description of the shape 
table, and I will not repeat that descrip- 
tion here. The most common error in 



writing functions such as I have writ- 
ten here, is to forget about the special 
case of the last index entry. This entry 
usually points to the first byte after the 
last shape (to the place where an 
undefined shape will begin). When the 
table is full (when N = MAX], there is 
no pointer to a "next" entry. The sec- 
ond most common error is to forget 
that the index entry is an offset, not an 
absolute pointer to the shape defini- 
tion, I have left a debugging subroutine 
in place at 39000. You can just leave it 
out if you Hke, but it is useful in the 
following fashion; 

1. Go through the part of the command 
sequence you are sure works. 

2. Do one command you are suspi- 
cious of. 

3. When the "option" display appears, 
type CTRL-C, return. 

4. Type in a line such as € = 34300 : 
GOSUB 39000 — this will dump the 
first 50 bytes from shape table 1 on- 
to the TV. Examine these to see if 
you identify an error. 

5. Type "CONT", 

6. GOTO step 2. 



This program does not incorporate 
the changes to Figueras' programs 
discussed by Cook. Depending on your 
specific needs, you may want to use 
some of Cook's ideas, such as allowing 
blank shapes. It would seem worth- 
while to read the reference articles 
from MICRO before you start typing 
any of the programs into your machine. 
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PtiK (A£VE + 2 * N 



3) 



IF PEIt (IC!) < ' tA ll.lt> PCKE ILZli.C: PCHT ]r:,]: PCKF UA,€A: Pr H.T 

chk; |4):"fl[. smpf f.AMFui^iE": SE^■ If v.r v.ei^e ic^irr ieicv. n-r-ES 

PPCLl 11, tN f-l-lCI-t: PF.CCR?^ CCEEli'T i]T If £K 
TEXT - tPtFC= ?"^: PCMF : PRINT ''EF.J'PE Kt- LI Fll F.Tf '' : E.n.rht :i?9?:LT = 
CHF$ (4l!BE = jr^tiAEVE = 2i7CC:r-7 = ;*FVE + tC: fEU ASVE S i: AKE £ 
E,APE TABLB ELfFEF LCC;^1 ICtlE, E£ IE E^UPEEF E IZE 
CFE Fl; FK(X1 = PEFK IX) + 25C • PFEh (X + 1) 
VIAE 72: CCTC ITCCC 
FFIl.T i;,EI ]r)r"Et!AFE LTZf^TI" 

PRIM TAE{ 51;"EY J. FIGUEf;?, ECCPEflFF t..Y." 

IF t^AKEf = "■■ TE.EK PBlblT "t-EEC 1C IMIT CP LCAP FIRST": CCIC ICCPC 
REM GET Hl\y t)C. (,F LHAFEf (SFEC'C PT IKIT) 
13C MAX = ( Et; PK{AtVE + 2) - 2) / 3 
15C BIK GET V.C. EDAPEE It>: TABLE 
N = PEEK (AEVE) :FLAC = 1 
REM CET FILE LENCTEI 
leC IKEFX = FEEK (ASVE 4 ! * K + 3) + 256 * 
ISO FE^. CCMPU1F fiCERFEE CF ^'EXT FREE BYTE 
7CC fiEDR = AEVE 4 IKEEX 
22C IF MAX > l. TUFK 26C 

FEINT "EUAPL TABLE ELLL." 
GCTC JPCCC 

KEH setup IKTEBKtJAL PCINTEPE TC TAEI E 
PCKE 232, ASVE - ?S6 ■ IMT (AEV / 25£l 
REM UPDATE EHAPE CTB 
28C K = K -I- 1: PCKE AEVE,K 
290 EEK DISPLAY PLOTTING GRID. INIT CTK, CYCLE 

EiCCLCR= '- ECALE= 1: ECT= C : CYCLE - 0: IF HG = J THEK PRINT "EEAEF 

SCREEN- (^ OR N) 7";: GCEUE 3CCC0: IF AM$ = -Y" THEK HCE 

IE HG = THEK KGR : HG = ) 

FCR X - C TG 150 STEP 3: EIPLOT X, C TC X.JEO; BEXT 

FCB Y = TC 150 ETEP 3: EFLCT O.Y TC I5C,Y! NEXT 

PRINT : PRINT : PRINT ! PRINT : PRINT "EKTER ETARTIRG GRID CCORPS. 

PRINT "X ■■;: GCEUB 300CO:X = 3 ' AN - 2 

PRINT "Y ";i GCSUB ;0COC:Y = 3 • AN - 2 

DRAW 1 AT X,YtX£ = X:V£ = Y 

PRINT : FEINT ! PEIKT : PRINT 

PRINT "MOVE PLCT CURECE WITH KEYS": PRINT 

IT" 



6 
9 
IC 

3C 
6C 
12r 



IGO 

170 



73C 
240 
25P 
260 
27C 



300 

310 
3 20 
330 
350 
370 
380 
350 
410 
420 



PCKE 233, INT (ASVE / 256) 



1 J K K 



P-PLCT C=CU 



(Continued) 
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i 



4GC 
490 

SCO 
SIC 



560 
59 G 
CIC 
63C 

esc 

67C 
69C 

7 or 

71C 
720 

730 



GUARD AGAIKST Ef, 



^60 KEYS - "":KEVES = ""i GCTC 570 

470 FEW FLfiC FE-EmBLrf CUE£DR AFTER A PLOT CISAELZ 
IF FLAG = 1 THEK SJO 
REM ERASE PKEVICUE CUBLCR 
XDBAK 1 AT XI, 11 
FFK PLCT K£VI CUfiECB 
520 XI = X:V1 = 1:FLBG = C 
530 XDFAW 1 AT X,V 

54C REM SAVE LAST TWC KEVSTCKEE. KIS IE NEFDEC FCP EPftFE KCUTIBE 
550 KI5 = KSVEE:KEVES - KEVS 
570 GET KE^S 

FEK GC TC SIEVE TC CET 3-EIT PLCT VECTOR FROM KEV? AKD KSVE? 
IF KFVf - "I" TKEN EYKBCL = 0:Y = "i - J : GCTC 7eC 
IF KEVS = "K" THEt; SVMECL = 1:X = X + 3: GCTC 760 
IF KEVS = 'K" TKEK SYMBCL = 2:V = Y -t J : GCTC 76C 
IF KEVS ■= "J" THFK SYMECL = 3:X = X - J: GCTC 76C 
IF KEYS = "P" THEN FLAG ^ ): GCSUB IC-CO: GCTC 53C 
IE key; = -0" THEN 1O90 

IF KEY5 = CHES 115) TKFi: ICOCCi REM CTFL/C 
IF KEYS ' > "E" TKEK 570 
KCCLCR= D:FIAG = 0: GCEUB ICOO 
REM SET UP PRE-PICT STATUE 
740 KSVES - KI5: ECCLCi.= 3t GCTC 5C0 
75C REM AEJUET 3-Bll VECTOR FCK PLCT 
760 IF KEVES = -p" TKEK SYMBOL = SYMBOL 4 4 
7G0 CYCLE = CYCLE + 1 

79C IF CYCLE - 1 THEtl EVTE = EYKECL: CCTC 48C 
eiC IF CYCLE < > 2 TKFt; 9C0 
ESC BYTE = BYTE + 8 * SYMBOL! IF BYTE > 7 TKEK 480; EEK 

D CF SHAPE FLACi 
66C BYTE = BYTE + E; PCKE ACER, EYTE: SrCR = AEFR + I 
e7C REM ENTER LP KCVE AKC EUKMY LEFT MCVE IK NEW BYTE 
eec BYTE = Jil: CYCLE = 2: GCTC 480 
890 EE^, IF 3RE 3-BIT IS A I-jCVE CNLY, ElKIEIl EVTE. EI.EE LCAD BYTE IKTC 

TAELE AML STCRE 3-EIT VECTOR IN KEXT BYTE. 
90C IF SYMBCL > 3 THEN 93C 
91C BYTE = BYTE + 64 * SYMBOL 
S3C PCKE ACER, EVTF:AEER = ACER + 1 

94C REM ETCFE 3-BIT VECTOR IK KEXT BYTE IF KFEEEC. 
95C IF EYMECL = CR EYKECL > 3 TKEK EEC 
56C FEM PREPARE FCR KEXT EYTE . GET NEXT 3-BIT VECTOR 
970 CYCLE = 0: GCTC 460 
9eC CYCLE - IjBYTE = EYMECL; GCTC 48C 
JCCC REM 
REM 

FCP Y2 = Y - 1 TC Y + J: KPLCT X - 1 , y2 TC X + i.Y?: ttEXT 
REM TURK OFF CLRECR IK PLCTTEE ECUARE 
IE X = XE /iML Y = YE THFK EETL'FH 
XCPAW J AT X,Y: RETURN 
PEM PREPARE EYTE FCF CUIT 
REM CLOSE CUT EYTE FCR MCVE-ONLY 
IF KSVES < > "P" TKEN )15C 
PEM L&E PI.CT-THEN-UP VECTOR TC ENC 

IF CYCLE = 2 THEN PCKE AEER , BYTE : AEER = AECR + 1 
IF CYCLF ^ J TKEJ^ BYTE = EVTF * 32; CCTC 1150 
1140 BYTE = 4 

1I5C PCKE ADER.BYTF:ArrR - ACFR + 1:/,K = ADERi CCEUE 31000 
PEM ALE PECCPC KARK. CISPLAY NEW SKfPE 

PCKE ACER,C:ACCR = AECP + 1: XCRAK N AT 200,25: £CALE= 3; XCRAW h AT 
2CC,]DC! £CALE= 1 
PRINT T PRINT "SAVE EKAPE; (Y OR N) " : : GCEUE 300Cr:KI5 = AK? 
IF MS = "Y" THEN 1 220 
J2CC K = K - 1: GCTC 180 

12JC REM GET IKCFX EOF UEXT ERIE EYTE 
1220 h ^ H -t 1:ACDR = AECF - A EVE 
1230 IF 1. < MAX THFH 1270 

PPIKT : PRINT "TAPIF FULI V<1T!-1 THIE SHAPE ■' 

IE N > MAX Thl-K 1310 

REM STORE IKLFX IK CIRECTCRY 

PCKE AEVE 4 2' K,AEEP - 25C - IKT {ACER / ?5C): PCKE AEVI + 3 ' N 

+ 1, INT l^-CCP / 256) 

PPIHT : PRINT "ECME WJTli CREATE (Y OR K) ";: GCPUE 3000C:KIS = AtS 

IF KIS = "K'' TflEM 160 

CCTC 10000 

ICOCC KG = C: PRINT i PPIKT "CREAT, INIT, EEL, LCAC1,L7, APE, SAVE, REV, KC"; : PRINT 
"CPT'ICK (C,I,E,1,2.A,S.R,N)"; ! CCEUB 3CCCC:AL$ = "Ciri2AERH" : I = 1 

10020 IF AK5 = HIES (ALf,l,]) Cfi I > I.FK (ALS) TKFK 1004C 

1CC30 1=1+1: GCTC 1CC20 

10040 ■ CK I CCTC IC, 2CC0C, 21000, 22000, 23000, 24000, 25000.26000, 27000; PRIMT 
"PLEASE TYPE C,I,l:,l, 2,A,£,E CP K" : GCTC ICOOO 

2CCCC PEM EHAPE TAELE IKIT EPCM MICRO 19:15 EEC 1579, J. FIGUEEAf, FCCE: 
EST K.V 

20C20 KAMFS - '■ ": REM SEE LIKF f-O 

2OC30 ACER - AFVE 

20040 PRIKT "KC, EHAPEJ TC BE AILCViFE ";; CCSLE 30000;N = AN 

2CC6C FCP I = CTC2"K + 1: PCKE AEEP -t 1,0: C-FXT 

2CCeC REK CALC IKCEX TC CLFSCF 



1010 
1C20 
1030 
JC4C 
1050 
lOCO 
1070 
1C8C 
ICSC 
IICC 
112C 



,1160 
1170 

1160 

iiec 



1240 
J250 
12EC 

1270 

12SC 
13CC 
1310 
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/Idi'BncEd/^ 

xv-tEndEd 

Editcr 



The Advanced X-tended Editor (AXE) is a professional programming aid 
which provides the user with a "text-editor" style extension to the 
standard Applesoft* operation system. Operation alongside DOS, Monitor 
and Applesoft, AXE remains transparent to the user until called upon by 
one of over thirty commands. 

• Global search & replacement, including wildcards, 
selected changes, & line number references. 

• Full character insert, gobble & delete. 

• Full statement insert & delete 

• Enhanced cursor movement including search 
ahead & position. 

• Two packed list edit modes. 

• Recall editing modes. 

• User programmable keyboard macros. 

• Four LIST formats, including unique BREAK LIST 
format for easier reading, understanding, & editing 
of code, 

• Auto line-numbering. 

• Lower case character entry. 

• Resident BASIC program may be run at any time. 

• Many more features. 

• Develop programs quicker & easier, saving hours of 
programming cost. 

• Requirements: 
Apple 11/11+,* Applesoft, 
DOS 3.3, 48K Ram 

Commands are easy, logical, and operate in the normal Applesoft entry 
mode, or in AXE's editing modes. AXE operates on BASIC code as stored 
in memory by Applesoft. No conversions of code to text is required. In 
addition, all Apple II DOS and Monitor commands are left fully functional. 

/IdfEncEd yv lendEd editor 



Available at your local dealer 
An Invaluable tool at only $69.95 




•Apple ll/ll-F, and Applesoft 
are registered trademarks 
of Apple Computer, Inc. 




Uersa Computing, inc, 

3541 Old Conejo Road, Suite 104 
Newbury Park, CA. 91 320 (805)498-1 956 
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PCKE P.CDR + 3, IST (H / 256) 



IKT (K / 256) : PCFE ACCE + 



IKT 



!LK = FtJ PK(A£VE + ? 



;H + 2):^AX = ( EN 



MAX - 7 STIP 2: 



2Cr9C tJ = 2 * K + 2 

2rlP0 EEM PUT tLEECE INTC CIEECTCFV 

2C110 PCKE ACER -• 2,E - 256 * IKT (N / J56J 

2CJ;& REM C?I.C It.ITIAL AECE TC CLiFECP 

ZCHC IK:T = AEEE + K: EEETCFF 

2C:5C EE\ ENTER CUBECF E!:AP£ VECTCFE 

2C]7r FCP I = C TC 5: EE/'E ? : PCKE IMT + l.t: 'Hty.'X 
?r]SC EEM GF1 ICJEE.X TC ^EJ!T EhAPE 
2C2CC tv - [. + 6: PCHE AEEE -t- 4,K - 256 

In / 256) 
2C25C PCHE ?ErF,l: PEM UPEATF EHPPE CTF 

2027C ccTo icncr 

210CC REM DELETE A EhAPE EFCM TAELE ttl 

21C1C ^' = PEEK (AEVE): PRINT "SHAPE KliMEEF. TC CELETE7 " ,■ ; CCEL'B SCCTCiSll = 

fit: tJGE : HCCL.CE= 3: £C^LE= 1: ECT- C: PCKE 232,A£VE - 256 * 1ST {A 

EVE / 256): PCKE J33, IKT (f£VE / 256): IF EH > N TKEK PEIKT "ElIGHF 

El SHAPE t IJ "ih: CCTC 21C]r 
210J5 ERAW £H AT ECBC: SCA1E= 2; CRAW S.K AT lECEC: £CflLE= 1 
21C2C PRIKT "IE TKPT THE SHAPE lO BE CELETED (V CE B) 7";: GCEUB 3CCCC:K 

IS - AKS: IF (KIS ' > "Y") AKr (KI? < > "K" ) THEN 21C2C 
21^30 IF KIS = "f-" TEEH 210]C 
210-10 L£ = FN PKff.EVE + 2 * SH) 

PK(AEVE + 2) - 2) / 2 
21045 IF MAX > K -1 1 TKEK KAX = N + 1 
2I05C SIZE = LK - L£: FCE 1 = AEVE + 2 * SH TC fiSVE -f 2 

X = FN PK(I -I 2) - SIZE: POKE I,X - 25C • IKT (X / 2561: POKE I + 

1, IKT {X / 256): biEXT : POKE AEVE * 2 * MAX.O: PCKE AEVE + E * MAX 

1,0: REM AEJUST SHAPE DIRECTORY 
21O60 EEM FCP I = AEVE + LH TC fiSVE4EE-l : PCKE I - EIZE, 

NEXT : EEMMCVE £HAPEE--THIE KCRKE BUT IE fiWFDLI.Y ELGW, 
23065 FRCM = AEVE + LKiEEST = AEVE * LE:FIKIS = AEVE + E£ - I : CCEUE ilPOC 

0: REM UEE MACHINE MCVE SUBROUTINE 
21070 PCKE AEVE.K - I: GOTO ICCOC 
22000 REM EHAPE T?.BLE tl LOAD 
22010 PRINT "EUfiPE TAELE NAME : " ; : GCSUB 30COO:KAME$ = RK5 : 

GAE" jKAHES;", A" ,-AEVE: GOTO ICOOC 
23000 REM EHAPE TABLE #2 LOAD 
23010 PEIKT "EHAPE TAELE NAME : 

D" rN2S; " , A" ;A2: GCTO 10000 
2400C REM AED SHAPE EHOM TABEE2 TC TABLEl 
24C10 IF KAMES = "■' THEN PRIKT "NC TABLE #1. IHIT OE LCAE ElEST": GCTC 

IDOOO 
24O20 IF K2S = "" THEK PRIKT "NC TABLE #2. USE OPTICtJ '2' TC LOAC IT": 

GCTC JOOCO 
24030 K2 = PEEK {A2): PRINT "EHAPE NUMBER TO ftCC7";: CCEUB 3CC0r;EH = AK 

: KGR : hCCLCE- 3: SCALE- 1: ECT= 0: PCKE 232. A2 - 256 

25fc): PCKE 233, IKT [fi2 / 256): IF SH > K2 THEK PRINT 

E IK TAELE2 IE ";K2! GCTC 24C30 
24040 DRAW EH AT 80,60: £CALE= 2: CRAW SH AT 150,80: ECALE= 1 
24C5C PRIKT "IS TEAT THE RIGHT EHAPE lY CE M]?";: CCEUB 3C000:K1¥ - AKS: 

IF [KI5 < > "Y") AND (KIE < > "R") T HEK 24050 
24060 IE KIS = "N" THEN 2403C 
24C70 MAX = ( FK PK(ASVE + 2) - 2) / 2:N = PEEK (AEVE): IF N > ^ MAX THEN 

PRIKT "EHAPE TAELFl FULL": GCTC ICOrO 
24100 L£ = FK PK[A2 + 2 • SH):LA£T = AEVE + (2 * N) + 2 : LK = FK PKtLAET 

):FINI£ = A2 4 FN PK(?>2 + 2 " EH + 2) - 1 
24120 FROM - fi2 + LEiEFET = AEVE \ LK : CCEUE 48000: REM USE MACHINE MCVE 

FCR EHAPE 
24140 EIZE = FIKIE - FRCM + liTM = LN + EIZE: PCKE fi£VE,N + 1:AK = TM + A 

EVE: GCEUE 31C0C: IF K + I < > MAX THEN PCKE LSST + 2, TM - 256 * INT 

(TM / 256); POKE LAFT -I 3. IKT (TM / 256): REM FIX CIEECTOPV 

24160 GCTC ICOCO 
25000 REM SAVE EH/iPF TAELE #1 
25005 IF NAMES - "" THEN PRIKT "NEED TC INIT OE LCftC FIRST": GCTC ICOCO 



PEEK III: 



PRINT D5;"EL 



GCSUB 3CCOC:N2S - ANS : PRINT DS;"ELCA 



INT (A2 / 
"lilGHEET SHPP 



PEEK [A6 



2S010 PEINT' "EHAPE TAELE NAMF :"r! CCEUE 3CCCC:KAMES = AHS:H ^ 

VE); REM KC. SHAPES IK TABLE 

25C20 U.ST = AEVE 4 2 * K + 2:: REM IKDEX ENTKV FCE "KFXT" EhfiFE 
25030 ADDR = PEEK (LAST) + 256 • PEEK (LRST + 1): PRIKT ES ! "EEAVE" ;NAME 

Si", A",-AEVEt",L" ;ADER: GCTC 10000 
26000 IF NAMES - "" THEN PRINT "NEED INIT CR LCAC FIRST": CCTC lOCCC 
2e01C N = PEEK (ASVE) ! PCKE 232, AEVE - 256 * INT (AEVE / 256); PCKE 233 

, IKT (AEVE / 2 561: HGR : HCOLCE^ 3: ECALE- ]: ROT= 
26020 X = ?5:Y = 25:1 = 1 
26030 DRAW I AT X,Y;X = X + 

124 THEN V = 25: IE I < 

3C00C: HCR 
2£04C I-I-fl: IFl s K THIN lOOOO 
2605C GCTC 26030 
27000 REM "N" — CHANGE MAX KC. SHAPES ALECWED IN TABLE 1, 

ELE 2 EY UEIKG IT AS TEMPORARY ETCRAGE. 
27010 K = PEEK (/.£VE): IF NAMES = "" THEN PRINT "NFFD TC INIT CE LOAD F 

lEST.": GCTC lOCOO 
27020 CLDMAX = ( IN PKlAfVE + 2) - 2) / 2: PRIKT "NEW MAXIMUM NUMBER OF S 

HAPFE :";: GCEUE 30OC0:NOWMAX = P.V.: IF N -» 1 > KCHMAX TKEK PRINT "T 

ABLE ALREADY HAS ":N;" SHAPES.": CCTC 27020 



60: IF X 1 

> K THEN 



254 THEN X - 25!V = Y + 60: IF Y > 
PRIKT "HIT RETURN TC GC ON.";: GCEUB 
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27030 FROM = A£VE:DEST = A2!FINI£ = fiEVE + EE - 1 ! GCEUB 4eccr:N2S = "": REM 

COPY TfiBLEl TC TABLE3 
27040 £1 = HCHMAX * 2 + 3:TW = FN PK[A? + 2) - El: FFM El IS I^;DFX ENTP 

y PCR NEW CUREOR. TH=(IKDEX CF CLC)-IINCEX CF KEW) 
27050 tCB I = 1 TC N -t 1:P2 = FW PK(A7 + I * 2):KP = P2 - TM; PCKE AEVE 
+ I ' 3.tiP - 256 ' INT [HP / 256): PCKE AEVE + 1*2 + 1. INT (NP / 

256): KEXT : REM CREATE THE HEW INCEX PCE TABLE 1. CCBEECTING THE CL 

D ENTRY (P2) EY THF CFFEET (TM). 
27060 IF N + 1 < NCWMAX THEN FCH I = N + 3 TC NCViHAX: POE<E fi&VE + 1*2 

,0: PCKE AEVE +1*2+ l.C: NEXT : REM FILL IN EMPTi INDEX SLCTE WI 

TR ZERCEE 
27070 FPCM = A2 + FN PK(A2 + 2):CEST = AEVE + FB PK(AEVE -t 2):FINIE = A 

2 + BE - TM: &OEDB 46000: REM N.CVE EH^PE DEFINITIONS 
27060 IF M < > OLCMAX THEN lOCOC: REM INDEX IE OK. 

27C90 ADDR - AEVE + M * 2 : P2 = ASVE + FN PK[flDDF): REM AEDR IE THE LAST 
INDEX ENTR'V; IT IE OK BDT THE NEXT CNF IE WRCNG. IT BHOULD POINT T 

C WbEPE THE NEXT SHAPE BFGINS EOT SINCE THF TABLE WAS FULL IT IE [TH 

E FIRET 2 EYTEE CF SHAPEl ) -TM 
27C91 REM SHAPEl IE CK, 11 HAS COPIED INTO THE TABLE ECMEWHERE ELSE. 
27100 IF PEEK [P2) < > THEN P2 = P2 + 1: GCTC 27100: REM FINE THE EN 

D CF THE LAST SHAPE 
2711C P2 = P2 + 1 - AEVE: PCKE ADDP + 2, P2 - 256 " INT (P2 / 256): POKE 

ACDR + 3, INT (P2 / 256) 
27120 GCT-O lOOOC 
30000 INPUT AN5;AN = VAL (ANS): IF ( LEFT? lANS.l) - CHR5 (15)) CR ( EIGHTS 

(AN5,1) = CHRf (IS)) THEN ICCOC: HEM CTRL/G RETURNS TC LINE 10000 
30010 RETURN 
31C00 IF AM > = AEVE + BE THEK PRINT "2K BUFFEE HAE BEEN EXCEEDED. DC 

NCT": PRINT "USE TABLE 2 UNTIL YCU SAVE TABLE J.":N2S = "" 
31010 RETURN 

39000 FCR 1 = C TC C + 50 STEP 10: PRINT "AE-",-I;" ";: FOR J - TC 

NEXT : PRINT : NEXT 



PRINT 



39010 
4EC00 



46010 



FCR 1 = C TC C 
PEEK- (I + J);" 
RETURN 

PCKE 60.FFCM - 256 • INT (FRCM / 256): PCKE 61. IKT [FROM / 256): 
PCKE 66.DEET - 35C * INT [DEET / 256): PCKE 67, INT [DFET / 256) 
POKE C2,FIKI£ - 256 • INT (FINIE / 256): PCKE 63, INT (FINIE / 2S 
6): REM NCW PARAMETERS FCR MOVE ROUTINE ALL SET EXCEPT "Y" hABCWAfi 
E REGISTER 
4EC20 POKE 768,152: PCKE 769,72: POKE 770,160: PCKE 771,0: PCKE 772,32: PCKE 
773,14! PCKE 774,254: POKE 775,104: PCKE 776,166: PCKE 777,96: RFK 
TYA!PHA:LDYIC: JSK IE2C :PLA!TfiY :HTE -- SAVE Y, ZERO IT, CALL MOVE, RE 
STORE Y, RETURN 
48030 CALL 769: RETURN 

63999 DS = CHR5 (4): PRINT CE;"OPEN LISTING": PRINT DEr"WRITE LISTING": PCKE 
33, 3C: LIST : PRINT DS;"CLG&E LISTING": TEXT : REM LIST THIS PRCGEA 
M ONTO DISK WITH "RUN 63999" 




AKMO 



TTACK 




Try one game and you're 
caught in its irresistabte web of 
fun. More habit forming than 
peanuts. More fun than gorging 
on hot fudge sundaes. More ex- 
citing than anything like it. 

SNACK ATTACK won't just 
a-maze you, it'll 3-maze you! Win 
the first level, and up pops a new, 
faster version, with a more in- 
tricate maze. And for more 
challenge there are doors you can 
enter and they can't. Doors they 
can dash thru and you can't. 

SNACK ATTACK ... by Dan 
lllowsky, the game that defies 
anyone to stop after just one 
game! 

$29.95, for Apple II* 

At computer stores, or from: 

DATAMOST 

19273 Kenya St. 



'Apple II Is a Iradematk ol Apple Compuler, Inc. 



VISA/MASTERCHARGE acceplea. $1.00 shiDplngJ ,«^o, .ioc -7ien 
henniiny Charge. (CalH. residents afld 6=/. laK) ('^l J) ODD-7 160 




DATAMOST 

19273 Kern/a St. Northridge. CA 91326, (213) 365-7160 



it seemed like a cinch assign- 
ment At least for the galaxy's 
master thief. 

Just sneak inside the Star- 
Complex Base, dodge a few 
guardian robots and grab the 
formula. A piece of cake. 

Oh yeah! They didn't say the 
robots went fierserk at the sight of a 
human. They didn't say I'd have to 
laser my way through 7 levels. Or, 
that rampaging robots would keep 
comina and coming. 

And most of all, they didn't 
bother to say there's some weird 
blob, an unearthly something that 
tracks you right thm the damn 
walls. 

I made it to tine 7th level. I found 
the formula. But, more robots are 
massing out there. And I'm 
wounded. My energy charge is low. 

You. Yes, you. How good a Thief 
are you? Prove yourself. Come get 
me. Come save me. 

S29.95 for Apple 11*. At computer 
stores, or from DATAMOST. 

VISA/WiSTERCHAROE aqcepted. si.oo shrppltig/ 
harxTling charge fCA residents add 6% tax) 

•Appfe II IS 3 irademaili of ApjJe Compuler, Jnc 



/MCftO 

From Here to Atari 



Jim Capparell 

297 Missouri St. 

San Francisco, California 94107 



This month we will look at the DOS II 
file structure and the floppy disk system. 
We shall investigate what the I FOR- 
MAT option of the DOS II menu docs 
and look at the physical characteristics 
of a mini-floppy. 

Included are two programs which 
print out the directory files of a disk. 
Program 1 is written in BASIC and pro- 
vides the ability to list the disk direc- 
tory without having to access the DOS 
menu first. Program 2 also lists a disk's 
directory, and its distinction is the use 
of the FORTH language. (This FORTH 
is from Quality Software, | 

A floppy disk is nothing but flexible 
mylar coated with a substance that will 
hold a magnetic charge. The floppy 
itself is protected by an envelope whose 
interior is designed to clean the disk 
surface as it spins. A slot is cut in the 
envelope allowing the read/write head 
access to the magnetic surface. The 
other two noticeable physical charac- 
teristics of the disk envelope are the 
write protect notch on the left edge and 
the index hole near the hub. 

When the write protect notch is 
covered, the disk hardware is prevented 
from writing data to disk, affording 
some protection from inadvertent 
erasure. The index hole is used by the 
hardware to find the start of the first 
sector on a track (not used by Atari). 

The format of Atari disks is known 
as soft sectored. Software provides the 
sector marks rather than the index 
holes. This formatting is performed 
whenever the I option of the DOS II 
menu is selected. At format time the 
disk surface is divided into 18 pie- 
shaped wedges. The beginning of every 
wedge has a preamble or header written 
which identifies the particular sector 
by number. This header is followed by 
the actual data, which is then followed 
by a gap. 



Program i 

10 REM ••• •»» 

20 REM USE THIS PROGRAM TO RETRIEVE A OIRECTORY LISTING 

Z5 REM WITHOUT EXITING TO DOS MENU 

30 REM INCLUDE AS A SUBROUTINE AT START OF EVERY EDITING SESSION 

100 GOSUB 30010 

120 STOP 

30010 DIM FILENAME«(481 

30020 OPEN *1,6,0,"DI«.«"!REM OPEN DIRECTORY FILE 

30030 TRAP 30100 

30040 INPUT #1,FILENAME« 

30050 ? FILENAME* 

30060 GOTO 30040 

30100 CLOSE »1 

301 10 RETURN 



Program 2 

SCH # 101 

I TYPE LST TO LIST FILENAMES ) 

1 : SPC SPACES I 

2 1 Die ( DIR ENTRY - PQS BUFADR) 

3 1 - 8 /MOD 301 + BLOCK ; 

4 ! HEAD CH ." TOTAL" 2 SPC 

5 ," START" 2 SPC ." FILENAME" 

6 CH ." SECT" 3 BPC ." SECT" 3 

7 SPC CH CR i 
8 

9 1 DIRNAM ( ADR - ..) DUP 16 + 

10 SWAP 5 + DO I Ce EMIT LOOP ; 

1 1 1 GETLST DIR SWAP DROP HEAD DUP 

12 128 + SWAP DO I !+ @ . 4 SPC 

13 13 + 0.4 SPC I DIRNAM CR 

14 Ifc +LOOP I 

15 : LST 64 1 DO I GETLST 8 +LOOP I 



Table 1 

810 disk drive 

18 sectors/track 

40 tracks/ disk 

720 sectors/disk (40 ' 18) 

128 bytes/sector 

92160 bytes/disk surface • 

• This is nominal total. When using 
DOS II files it must be reduced by 13 
sectors used in DOS file structure (see 
table 2] and by an additional three bytes 
for each of remaining 707 sectors (file 
number, forward pointer, byte count|. 

13 * 128 = 1664 
3 • 707 = 2121 

Total = 3785 

Total capacity when using DOS n for- 
mat is 92160 - 3785 = 88375 bytes/ 
disk. 



Table 2 



DOS II sector allocation 

3 sectors used for boot 

1 sector used for VTOC 

S sectors used for file directory 

1 sector unused due to numbering 

discrepancy between FMS and disk 

controller 
13 sectors total 



In addition to the sector division, 
each disk is also arranged in 40 concen- 
tric circles known as tracks. It is upon 
these tracks that data is recorded 
within a sector. As noted, every track is 
divided into 18 sectors. Refer to table 1 
and table 2 for further information. 

The formatting process (1] lays out 
sector arrangement by number on 40 
tracks; (2) writes Atari DOS file struc- 
ture on disk; |3] initializes every sector 
of disk to zero. 

The Atari DOS expects certain in- 
formation at specific sector positions 
on the disk surface. It is this informa- 
tion which allows the File Manage- 
ment System to recover a file by name. 
The sectoring is performed by a ROM 
in the disk drive upon command from 
the File Management System |FMS), 
This sectoring arrangement is a rather 
arbitrary decision. The hardware doesn't 
care where the sectors are put on the 
disk, as long as 18 exist on each track, 
and each sector has its preamble or 
header, identifying itself by number, 

tConlinued on page 8!) 
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FOCUS 



ON THE 6809 MICRO 
WORTH SWITCHING FOR 



FOCUS ... ON ITS 

SUPERIOR HARDWARE 



6609E Microprocessor provides 8-bh economy with 16-bit 

capabilities, position independent code and many advanced 

features 

Commercial quality Keyboard with full UPPER/lower case 

ASCII, numeric keypad and cursor control keys 

Two double sided, double density mini diskettes 

with 640K bytes of IBIUI compatible storage 

Full Video with programmable screen formats, bit mapped 

graphics, user definable character sets, reverse video and 

hardware scrolling, plus a light pen interface 

Full Communications support for RS-232 at 50 to ig.2K 

baud with programmable data formats 

Buiit'ln I/O Drivers include 6 parallel i/0 ports, 3 serial I/O 

ports, 6 timers/counters, 20 mA current loop, and a 

programmable cassette interface 



FOCUS ... ON ITS 

EXTRAORDINARY SOFTWARE 



Choice of two 'Universal' 6809 Disk Operating Systems 
supported by many companies: FLEX ™ or OS-g'f" 

Extended Floating Point Disk BASIC 

Interpreted and Compiled 
Text Editor and Macro Assembler 
Full feature MicroMon debugging monitor 
Built-in Word Processor 



FOCUS ... ON ITS 

VERSATILE EXPANDABILITY 

. IEEE-488 Bus Controller option for instrumentation 
. Supports multiple 8" diskette drives 
. PASCAL, FORTH and other high level programming 
languages are available 

• Complete Application Packages are available from many 
software sources 

• Add-on Hardware includes: Date/Time, Opto-isoiators, 
Stepper-Motor Controller, A/D and D/A, RAM and EPROM 
Memory, and others from several manufacturers 



FOCUS ... ON YOUR 

APPLICATION REQUIREMENTS 



FOCUS provides a completely Integrated system of 
hardware and software, so that you can concentrate on 
your application requirements 



THIS IS 

FOCUS 




$749^00 

Very CoMplETE 



Tj-Ltja 



sasaiPii^aaiia? 



® 



34 Chelmsford Street 

Chelmsford, MA01824 
Phone: 617/256-3649 Telex: 955318 INTLDIV 



Licensing arrangement for FLEX and OS-9 pending. Please conlacl The COMPUTERIST, Inc. for further details 



• 
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Drives purchased prior to fall 1981 
wrote the sectors sequentially (i.e., 1, 
2, 3, 4...). This method wastes time. 
For example, suppose sector ! were to 
he read and then a small amount of pro- 
cessing were done prior to sector 2 be- 
ing read. By the time the CPU were 
ready, sector 2 would have rotated past 
the read/write head, forcing the system 
to wait another revolution to read it. 
This is easily corrected by ordering or 
interleaving the sectors differently. 
This, in fact, is what the new drives do, 
and as a result save about 30% on file 
load time. Those of us with the old 
drives probably will be able to purchase 
the new ROMs as a retrofit by the time 
you read this. 

When the formatting process is 
complete, 719 sectors have been in- 
itialized and allocated as follows: 

Sector 1 - 3 boot record 
Sector 4 - 359 user data 

Sector 360 
Volume Table of Contents (VTOC) 

Sector 361 - 368 file directory 

Sector 369 - 719 user data 

Sector 360, the VTOC byte alloca- 
tion is as follows: 



ByteO 

directory type set to 
Byte 1 - 2 

maximum sector number 
(low, high byte] 

Byte 3 - 4 

number of sectors available 
(low, high byte) 

Byte 5 - 9 
unused 

Byte 10 - 99 
bit map, one bit per sector, bit set 
when sector in use 



7 


12 3 5 6 7 


Byte 10 of VTOC 


8 9 10 



Byte 1 1 of VTOC 

Sectors 361 tfu'ough 368 are reserved 
for the file directory. Each directory en- 
try is 16 bytes long, and allocated as 
follows: 

ByteO 
flag byte $40 = in use, $60 = file 
locked, $80 = file deleted 

Byte 1 - 2 
total sectors in file [low, high byte) 

Byte 3 - 4 
starting sector of file [low, high byte| 



Byte 5 - 12 
file name (eight characters! 

Byte 13 - 15 
file name extension (three characters] 

The last important piece of informa- 
tion is the layout of a sector in a user 
file. 

Byte - 124 
user data/ program 

Byte 125 
bits 2 - 7 file # 
bits - 1 are high bits of next byte 

Byte 126 
forward pointer (10 bits including bits 
and 1 from byte 125] 

Byte 127 
bits - 7 byte count used in sector 

The file number is used to verify file 
integrity and contains the value of the 
directory position of that file. The for- 
ward pointer contains the disk sector 
number's 10-bit value of the next sec- 
tor in the file. The pointer is equal to 
zero in the last sector of the file, and 
the byte count is the number of data 
bytes in the sector. 

We'll continue our discussion of 
DOS II file structure and the floppy 
disk system again next month. 

JUCftO 



EXTRAORDINARY 

INTRODUCTORY OFFER 



FOR NEW SUBSCRIBERS 




Computcrist's Wrcctory 

PO BOX 405 
FOHESTVILLE. CA ! 
(707)887-1857 
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"Using Atari's Countdown 

Timor" tContinued fiom page dOJ 



When CDTMl decrements to zero, the 
sub routine pointed to by CDTMAl 
will be indirectly executed. If this 
subroutine is short in nature, its action 
will not appreciably slow down the cur- 
lently executing program. If the count- 
down timer service routine also resets 
the countdown timer, then the user 
may implement their own background 
routines — all executing independently 
of the current "foreground" BASIC pro- 
gram. Thus the Atari Computer System 
may be set up to periodically execute 
an assembly language subroutine. 



A potential problem exists in in- 
itiating a countdown timer with a 
value greater than 255 [one byte). Since 
16-bit quantities cannot be manipu- 
lated by the 6502 processor directly, a 
VBLANK interrupt could occur while 
one timer byte is initialized and the 
other byte is not yet set. [If the in- 
itialization is done by BASIC POKES, 
the chance is greater since BASIC is 
slower than machine language.) The 
programs in this article avoid this prob- 
lem by limiting the countdown value 
to one byte, 255 or less. Other special 
cases are possible. Page 106 of the 
Operating System User's Manual 
outlines some general techniques to 
handle this problem. 



To demonstrate the capability of 
CDTMI, listings 3 and 4 show a pro- 
gram that uses a background routine to 
change the basic voice #0, The timer 
completion routine uses the random 
number generator in the Atari operating 
system to select the next note frequency 
and timer value. An interesting point is 
that the countdown timers are con- 
trolled by the operating system, not the 
BASIC language cartridge. Because of 
this, the background timer processing 
continues after pressing the BREAK 
key. A system RESET is required to 
stop the timer processing. 



With a few interfaces to the built-in 
joystick 6520 PIA ports and paddle in- 
puts, background monitoring functions 
could be performed while a foreground 
BASIC program provides the man/ 
machine interface, analyzes the data 
collected in the background, controls 
output interfaces based on the back- 
ground monitoring, ... 

MCftO 
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Extended SYM-BASIC 

Adds 30 commands, requires 16K, $85 
US/S95 Can., object on cassette, 
manual, and source listing, SYM-FORTH 
I.I): fig-FORTH for 16K SYM-1. Editor, 
assembler, cassette interface S135 
US/$I55 Can., obiect on cassette, 
manual and source listing, 

Saturn Software Limited 

8246 116A St. 

Delta, B.C, V4C 5Y9 

Canada 

TRS-80 Color Computer Game 

Play "Biickaway" on any configuration 
of the Color Computer, A high-speed 
arcade game in 6809 mactiine language 
with realistic sound and brilliant colors. 
Only S7,00 postpaid. Requires joysticks, 
sold on cassette. 

Britt Monk, CDP 

P.O. Box 802 

Elyria, OH 44036 

8800/6809 Software 

Includes compatible single-user, multi- 
user and net work -operating systems, 
compilers, accounting and word 
processing packages. Free catalog. 

Software Dynamics 

2111 W, Crescent, Sta, G 

Anaheim, CA 92801 

Computer Hardware Cases 

Protect your hardware from hard knocks. 
FIBERBILT stocks an extensive line of 
storage, carrying, and shipping cases for 
virlually every piece of hardware on the 
market. Call or write for details. Sales 
rep. inquiries invited, 

FIBERBILT 

601 West 26th Street 

New York, NY lOOOl 

|212j 675-5820 

Apple-6809 Cross Assembler 

Turn your S-C Assembler Version 4,0 
into 3 cros.s- assembler for 6809 programs. 
Interfaces to Stellation MILL, Disk 
includes both source and obicet code for 
the self-in St ailing conversion patches, 
sample 6809 program, instructions. Only 
$20,00 from: 

S-C Software Corporation 

P.O. Box 280300 

Dallas, TX 75228 

(2141 324-2050 

Small Computer Program tndex 

Bi-monthly index to published computer 
programs. Over 2000 programs included 
in the first year. All subjects: education, 
games, busmess, mathematics, graphics, 
science, engineering, tent handling and 
utilities. Subscription $35 per year. 
Further information from: 

ALLM Books 

21 Beechcroft Road 

Bushey, Herts W02 2JU 

England 



Accounting Software by SBCS 

For the Apple 11, General Ledger, Farm 
Ledger, Crop Ledger, Livestock Ledger, 
Accounts Receivable, Efficient, easy to 
use. Detailed documentation (credited 
towards purchase!. FREE updates. Write 
for more information! 

Small Business Computer Systems 

4140 Greenwood 

Lincoln, NE 68504 

1402) 467-1878 

PROM Programming Service 

OSI users, put your Extended Monitor or 
other utilities in PROM, Your PROM 
12708/2716/27321 erased and 
programmed for $5 each, if your program 
is on cassette |KC 300b), Blank PROMS 
available. Write for details. 

Alpha III Electronics 

285 N. Main Street 

Crystal Lake, IL 60014 



HTS TImestack KIMfAIMfOSI Products 

Time stack Operating Systems 
implements programmable lime-based 
controller Software manual — $20, User 
manual — $5, Real-time clock hardware/ 
software /interface manual — $10, 
General Expansion Board adds 8K of 
RAM, EPROM, and PORTS, 
Construction manual — $10. Specify 
system. Information — $1, 

Hunter Technical Services 

P,0. Box 359 

Elm Grove, WI 53122 

1981 Tax Programs — PET/CBM 

1 — Federal 1040, 1040A, Sehed, A, B, 
D, G, 2 — Federal/CA State and Sched, 
A & B, 3 ■ Schedules C, D, G, 2210, 
2441, 5695, More, $150.00 each, 

Don Henderson 

9330 Bolsa Ave,, Dept. M 

Westminster, CA 92683 

LibrarianfContour Mapping 

Filing and keyword retrieval system for 
books, articles, excerpts, etc. Produces 
automatic bibliographies. Initial data 
base included, $69.95, Contour Mapping 
- high quality contouring system for 
printer, plotter or CRT, Data and grid 
transformations, trend surfaces, 
residuals. Data manager. Geological and 
geographical software for Apple and other 
systems. 

Geosystems, Inc. 

802 E. Grand River 

WiUiamston, MI 48895 

(517) 655-3726 

OSI Software 

Universe (plays like Scramble and Cobia 
Copier] is a super smooth machine code 
arcade game played by keyboard or 
joystick. $14,95, Edit All includes a full 
screen editor, scroll window output, full 
cursor control and more. $19,95, For 
CIP, C2-4 computers, 

DMP Systems 

319 Hampton Blvd, 

Rochelle, NY 14612 
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A FORTHword 



What is FORTH! 

Most people have, at ieast, heard of 
FORTH. And most probably know that 
it uses Reverse Polish Notation and is a 
stack-oriented language. Many have 
heard that it is a "threaded" language, 
although some probably don't know 
what that means. It is a most peculiar 
language, but it is also one of the most 
powerful and the most flexible lan- 
guages available. 

Unlike Pascal and many other com- 
puter languages, FORTH was designed 
from the ground up by Charles H. 
Moore, Instead of starting with a grand 
scheme for the language, about ten 
years ago he started with the most basic 
aspects of the language, and gradually 
added features imtil it became the very 
powerhil language it is today. 

Moore arrived at the name because 
it was considered a fourth generation 
language. The system being used, how- 
ever, could only take 5-letter names! 

The basic element of FORTH is the 
"word." Even colons, commas, and 
semicolons are considered words. If it 
isn't a number, it must be a word! 
Writing a FORTH program is simply a 
matter of defining words, starting with 
the simplest and increasing in com- 
plexity, imtil the main program can be 
written in just a few lines with 
predefined words. As each word is en- 
countered in the program, it is looked 
up in the dictionary and its definition 
executed. Every FORTH implementa- 
tion starts out with a vocabulary of the 
most essentia! words. The programmer 
uses these to define his own. Frequently- 
used words may be permanently added 
to form a customized FORTH to suit 
particular needs. Even the standard 
words may be redefined, but only the 
most recent definition is used. It is 
even possible to define whole classes of 
words using the powerful > BUILDS... 
DOES >stmcture. 

If you start at the highest level of 
operation of a program, you can trace 
the flow of control to the definitions of 
the words used, and from there to suc- 
cessively lower levels of definitions. 
Eventually the flow can be traced to 
words defined in the machine language 
of the host processor. These threads of 
control hom the highest to the lowest 
level result in the term "threaded" be- 
ing applied to FORTH. 



There are actually two stacks: the 
main stack and the return stack. The 
main stack is used for nearly every- 
thing. As with a deck of playing cards, 
numbers or addresses may be added to 
the top of the stack or removed as 
needed. If you put three things on the 
stack, you can be sure you'll get those 
three items back, only in reverse order. 
Most operations act on the top two en- 
tries, removing them and replacing 
them with the result. 

Reverse Polish Notation (RPN or 
Post-fix notation] is the method used to 
code FORTH programs. It makes use of 
the stack much more convenient and 
eliminates the need for parentheses. To 
add two numbers using the normal 
arithmetic notation you would enter: 5 
+ 3 = , In RPN, you would enter: 5 3 
+ , A more comphcated expression, (7 
+ 5|*(3 - 1], would appear as 7 5 4- 3 
I - ■ in RPN, 

FORTH certainly qualifies as a 
"structured" language, in that the flow 
of control is usually very clear. There is 
no GOTO statement, and line numbers 
are used only by the editor to create a 
source program. Words in FORTH are 
actually procedures and functions in 
disguise. A number of powerful control 
structures are supported by FORTH, in- 
cluding DO,, .LOOP, IF,., ELSE,,, THEN, 
and BEGIN. ..WHILE.. .REPEAT, Vari- 
ables are used sparingly because the 
stack serves most storage needs. 

Extensibility is another word fre- 
quently applied to FORTH, and 
FORTH literature is heavy with articles 
on various FORTH extension packages. 
If a word you need isn't in the vocabu- 
lary, all you need do is define it, and it 
is handled with equal priority. String 
handling is not a pare of either fig- 
FORTH or FORTH-79. That is left to 
the user, since it is a pretty easy mat- 
ter, and there are so many different 
ways to implement string functions. 
Floating point numbers are not sup- 
ported in either standard, but again, 
words can be added for these functions. 

Virtual memory is a feature of 
FORTH that receives little attention. A 
full implementation of FORTH in- 
volves one or more disk drives. The 
disks are formatted in i024-byte 
blocks. These blocks are called screens 
because each block holds enough for 15 
Imes of 64 characters. These are handled 
through buffers, and if changes are 
made in a screen, the copy on the disk 



is automatically updated. It is also 
possible to write programs that occupy 
many screens [more than the actual 
memory of the computer] without any 
special provisions. 

Advantages and Disadvantages 

The advantages of FORTH are 
many. The FORTH system occupies 
little space in the computer, and it can 
be stripped down even fuicher for par- 
ticularly small systems or for dedicated 
applications. Programs can be very 
tightly coded so that they occupy little 
space, and the speed is invariably faster 
than the comparable BASIC programs. 
Most definitions can be tried out in- 
teractively before they are actually in- 
cluded in a program. With the built-in 
assembler, time-critical portions of the 
program can be written without switch- 
ing to another assembler program. And 
finally, FORTH is one of the most port- 
able languages available. This is due 
both to the structure of the language 
and to the willingness of all to set and 
adhere to standards. 

There are also a few disadvantages. 
It takes quite a while to get used to 
RPN and slack manipulation, and 
FORTH code can be very difficult to 
read. Generally this is overcome by 
using very short word definitions and 
by using comments liberally. The disk 
has no directory — everything is ac- 
cessible by screen number only — so it 
may take some effort to find a par- 
ticular definition. 

In this Issue 

If you know nothing about FORTH, 
a good place to start is Nick Vrtis's 
"LIFE in FORTH and BASIC," The 
popular game of LIFE is presented so 
that the FORTH program can be com- 
pared directly to a BASIC program that 
follows the same flow, Mark Bernstein's 
"Stepper Motor Control" is an exam- 
ple of the "process-control" group of 
applications to which FORTH is par- 
ticularly well-suited. The third article 
by Raymond Weisling demonstrates 
the extensibility of FORTH by adding a 
CASE statement, a FORTH decom- 
piler, and Apple disk commands. We 
have listed in our "FORTH Resource 
List" (p. 108) only those companies 
which support 6502 and 6800 family 
implementations. 

The best way to learn about 
FORTH, of course, is to use it, and 
with prices as low as $20, there is little 
to stand in the way, 

Loren Wright 

MCftO 
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There's no 
Dr.Jekyll^ 

in Apple ff 
programming 



i&^. 



■Apple II 15 3 liademark ol Apple Computer Inc. 



Programming 6502 Assembly Language is no 
longer frightening or a monster problem. Because 
Randy Hyde has written me book that's easy to 
understand, easy to follow. It turns assembly 
language into the 'friendly language'. For anyone. 
For the average Apple II owner and the newest 
beginner. 

Let Mr. Hyde get you started immediately, with 
string and math operations. See how to convert 
BASIC programs so they run up to 100 times 
faster! Discover Sweet-16, the 'hidden' '16-bit 
I pseudo computer inside your Apple. Enjoy using 
your Apple to the maximum by following the sfep- 
'■:. by-slep, practical examples. . .which turn you into 
'. a programmer in the blink of a chapter. 

Hianks to Mr. Hyde 

AKtMBLY^^ $19,95 per easy-reading copy at computer 
^^^^.^9^ stores everywhere, or from: 

DATA MOST 

-■ ■ 19273 Kenya SI, 

Northridge, CA 91326 
(213) 366-7160 

i/ISAIMftSTERCH&nGf acceplcd. 

£1 00 shipping' hand ling chgtge. 
IC^Iilornia residenl^ add 6% lat) 



Why do unnecessary surgery 
ON YOUR Apple? 



Sooner or later, you're going lo need a 16K 
memory-expansion for your Apple, When you 
do, we suggest you buy it on the card that doesn't 
require poking about on the motherboard — nor 
removing a RAM chip, installing a stnq), etc. 

T'he Ramex l6 RAM Board just plugs in. It's 
simple, reliable, and does its own memory 
refresh, wi^ no additional connections. 

Run Pascal, Fortran, FP, INT and 
.other alternate languages, 56k 
CPM with a Z8fl Softcard, increase 
usable memory for VisicaJc by l6K. 
The possibilities are endless. Do 
it witfi the finest, closed-track 
engraved, epoxy sealed, 16K 



AppL4; and AppEi-^itfl iLif rei^L^leivd indLniark&ijlAppli 
Compuler. Inc Fiwal U. r ii.^-.if nduAAtitaikohht RevFOLS of 
the H ul C , San Dic^f Visicalc is a r™5(prrJ iraJrniart erf 
Person jl Soft^-Bte U'M isin\^Jl>r<'(iiiademark ofDigHal 
Research, Inc Z80isa rejiistfrwl Lradrniark"E/iliw, Itii 
Softcard ts j rcRislered irsdcmark iJ'MkriHuft 



board available — the Ramex l6. And do 

it without unnecessary surgery on your Apple. 

In spite of its quality, the Ramex 16 costs less 
than most other expansion boards — just 
$139.95. And it comes with a one year limited 
warranty, in^ead of the usual 90 days. 



G 




et the Rama 16 from your local dealer, 
_ r or order direct. Visa and Mastercard 
holders call toll-free, 1-800-835-2246. 

OAAEGA MICROV\«M,INC 

222 SO. RIVERSIDE PLAZA 

CHICAGO, IL <^)606 

312-648-1944 



Look, ma, 
no straps! 



Using FORTH 
with the 6502 



Here are three applications 
designed to help the newcomer 
to FORTH better use the power 
and flexibility inherent In this 
revolutionary language. These 
applications extend the power of 
FORTH by adding a CASE 
structure, a decompifer, and disk 
commands to the language. 



Raymond Weisling 
Jaian Citropuran NO- 23 
Surakarta, Jawa Tengah, 
Indonesia 



Until recently, FORTH has been 
available only to a small number of 
users, Bui in the past year the interest 
in this unusual language has grown 
tremendously, perhaps now boasting 
more proponents than other languages 
like C, APL, etc. It has enjoyed this 
growth because it offers an excellent 
compromise between the typical trade- 
offs of speed, memory efficiency, flex- 
ibility, cross-system transportability, 
and terseness, which other languages 
only partly achieve at the expense of 
other elements. 

But FORTH's real beauty lies in its 
extensibility, something no other com- 
mon computer language offers. (Human 
languages are all expandable, changing 
to fit the needs of its users. Imagine a 
human language that did not permit 
new words to be added, its users forced 
to describe new concepts with a fixed 
vocabulary long outdated.) 

The ability to add new operators or 
commands, or even subroutine- like 
structures, to a language makes it ap- 
pealing to all of us, who at one time or 
another have faced the frustration of 
some stubborn aspect of a rigid lan- 
guage. Indeed, programming in FORTH 
is always a process of expanding the 



language, as there is no real difference 
between the language itself and the 
"program." 

This article describes several appli- 
cations of FORTH using the Apple II 
and the Cap'n Software Version 1.7 
FORTH. But since several other Apple 
II versions have been released by dif- 
ferent vendors, and since FORTH 
boasts good transportability, the Apple 
II applications given could be easily im- 
plemented on other systems with little 
alteration. The applications shown 
here are foi a CASE structure, an effec- 
tive FORTH decompiler, and a partial 
implementation of Apple DOS. Readers 
who are unfamiliar with the basic prin- 
ciples of this language are directed to 
the bibliography given at the end of this 
article. 

This article is aimed at those who 
already have FORTH mnning or who 
are seriously contemplating purchase 
(or even homebrewing — yes, it is 
possible] of FORTH. It offers useful 
tools to smooth the transition from 
other more conventional programming 
languages, and illustrates some of the 
powerful aspects of FORTH in a micro- 
computer environment. 

A Case Structure 

One of the current deficiencies of 
FORTH is the lack of a CASE structure, 
I felt that a CASE structure would im- 
prove programming efficiency and pro- 
duce source code closer to human think- 
ing habits than an alternative sequence 
of IF THEN statements, which have 
certainly been liberally sprinkled over 
the BASIC fare. When the FORTH In- 
terest Group [FIG] ran a CASE contest, 
I selected one of the published entries 
for my use, A CASE structure should be 
able to use a value to make an n-way 
branch in the program flow, like the 
ON ,.- GOTO of BASIC, but without 
the restriction of contiguous input 
values. Listings for SCR # 80 and 81 
show my selection, which is used in 
defining the remaining applications. 



This CASE structure allows any 
single value to cause execution of 
branches in a " tree' ' if the condition for 
that branch is true. A value is placed on 
the stack before the BEGIN-CASES 
word, and it is compared with a value 
lor two for RANGE-CASE] that is 
placed on the stack before the CASE 
word. This usually is a literal value, but 
it could be any word yielding a value. 

If the condition is true, the words 
between the CASE and END-CASE are 
executed, [f more than one condition is 
true, only the first one is executed. The 
ELSE-CASE form is a default execution 
if none of the preceding cases were 
true. By logically arranging the order of 
these statements we can generate 
almost any kind of conditional struc- 
ture (see SCR # 82 for an example of 
this kind of usel. 



SCR § 80 shows the actual run-time 
words used in this CASE structure, 
written in 6502 assembler code for the 
FORTH resident assembler. The ori- 
ginal reference also lists a FORTH equi- 
valent for this machine-dependent 
code, but it is slower and consumes 
more memory. As my other uses re- 
quire maximum speed, I opted for the 
machine-code run-time words, SCR # 
81 shows the compile-time words asso- 
ciated with the CASE structure. These 
are really expansions to the FORTH 
compiler, as they compile the high- 
level words CASE, END-CASE, 
BEGIN-CASES, ELSE-CASE, and END- 
CASES into correctly structured 
references to the machine-code run- 
time words. Some compiler error 
checking is done to assure proper pair- 
ing of the CASE words. 



Credit for this CASE structure must 
go to R.D, Perry and the FORTH In- 
terest Group (FIG). For more details on 
this structure or other submitted CASE 
structures, see FORTH DIMENSIONS, 
Vol. II, Number 3 (Sept/Oct 1980). 
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SCR t OO 

( CfiEiE: STRUCTURE ~ PART 1 EtOfinZSllO) 

( CASE 6S02-C.oat RUN-TIHE! WORDS) 
HEX 

CO[>E N--=ERANCH INX. IMX. FE ,X LOA, 

EPT CMP, 0=-- 

IF, FF ,X L.[)A, EOT 1-t- CMP, = 

IF, INX, INX, ' OBKANCH B + JMP , 
THEN, 
THEN, ■ E:RANCH JMP, 
CND-COOE 

code: NRANGE-BRANCH INX, INX, inx, inx, 

SEC, FC .X LDA, EG! SEC F[> ,X LUA, 

BOT 1+ sec, a< NOT 

IF, SEC, EOT I.DA, FE ,X SE:C, 

EOr 1* L[)A, FF ,X SEiC, 0< NOT 

IF, INX, INX, ' OERANCH 8 ■<■ JUP, 
THEN, 

THEN, ' BRANCH JMP, 

END-CDDE 

— > 

SCft # 80: CASE run-time words defined in 6502 assembly 
language for the FORTH resident assembler. 



SCR t Bl 

< CASE - PART 2 SlAOlBllO) 

: BEGIN-CASES ?C0f1P 1 ! IMMEDIATE 

: CASE ''COMP 1 ?PAIRS COMPILE N=ERANCH 
HERE 0,5! IMMEDIATE 

: RANCE-CASE ?COMP t ?PAIRS COMPILE 

NKANGE=E!RANCH HERE , 5 J IMMEDIATE 

! ELSE-CASE ?CDMP t ?PAIRG COMPILE DROP 
a 5 ; IMMEDIATE 

! END-CASE ?COMP 5 ?PAIRS COMPILE ERANCH 
DUP IF HERE 2+ OVER - SWAP '. ELEiE DROP 
THEN HERE SWAP , 1 ! IMMEDIATE 

: END-CASES ?COMP f ?PAIRS DUP C= 0= 1 
■SPAIRS COMPILE DROP EiEGIN DUP WHILE 
DUP I? SWAP HERE OWER - SWAP ! REPEAT 
DROP ! IMMEDIATE 

!S SEE FORTH DIMENSIONS, VOL 2, NO 3, 
SEPT/OCT 1980! R.D- PERRY, P. 79 

SCft # 81: CASE compiler extensions compile references to the 
machine code run-lime words Into new definitions. 



A Decompilei for FORTH 

With almost any program we en- 
counter there is always some degree of 
curiosity ahout its inner workings, 
FORTH is no exception, and since we 
are charged with expanding the lan- 
guage (i.e., programming in it|, we 
should do it in style. One excellent way 
to learn style is to study other program- 
mers' examples. As FORTH is a fully 
structured language from end to end, 
virtually any part of it can be viewed 
and understood, given a suitable in- 
spection tool. Even the core or nucleus, 
written in assembler code for the host 
processor, is in neat little blocks with 
rather uniform protocol "hooks." 

I wanted to know more about these 
irmer workings, so 1 developed this 
decompiler. But it has more than enter- 
tainment value. Building the DOS 
vocabulary required some digging at 
the FORTH disk processing words. 
Here, this tool paid for its own develop- 
ment time. In fact, I had originally 
planned to keep this decompiler on 
disk, compiling it into the FORTH dic- 
tionary when needed. But it quickly 
became evident that it should be per- 
manently added to my FORTH dic- 
tionary so that it is present after 
booting the language. 

The decompiler itself, shown on 
SCR # 83 to 85, is invoked by the word 
LK:, followed by the word to be decom- 
piled. If the word is a colon definition, 
the individual words making up the 
definition are printed. Literals are 
printed in the current number base. If 
the word being decompiled is a 
machine code definition, the Apple II 



monitor disassembler is called to 
display a fixed number of lines in hex- 
adecimal notation. Other words, like 
constants and variables, and the nm- 
time part of new defining words using 
the < BUILDS DOES > structure, are 
properly identified. 

The word LK; first makes the 
parameter field address of the next 
word in the input stream, the word we 
are to decompile. The code field is 
created from the parameter field, and is 
tested against a list of literal addresses 
for the action appropriate to the type of 
word being decompiled. If this address 
matches, the branch is taken and other 
words are executed or messages are out- 
put. The default branch is for code 
definitions, as its code field always 
contains a value two greater than its 
code field address. The word DASM in- 
vokes the monitor disassembler. [On 
non-Apple systems you could write a 
FORTH disassembler, or simply print a 
message like "CODE DEFINITION".) 
Note that these are specific addresses 
for my vendor's version and other ad- 
dress values have to be found ex- 
perimentally for other implementa- 
tions. The toolbox we are filling here 
includes the word CFQ to help derive 
these addresses. CFQ has no other 
association with the decompiler, and 
need not be included once its work is 
done. 

The word LKD handles the case of 
the run-time DOES > definition. The 
result is the DOES > part of the parent- 
defining word, as well as the address 
and contents of the following memory 
address in the member word we are 
decompiling. Since it is impossible to 



know the function of a < BUILDS 
DOES > definition, further decompil- 
ing is not done. These results may be 
used for more investigation if desired. 
LKU handles the user-vaiiable type of 
word. The literal 830, which points to 
the user variable area, may not be the 
same for other versions,- this terminal 
sequence will yield the correct value: 

HEX USER JUNK JUNK. 
FORGET JUNK DECIIylAL 
(relurn) 

The words LKC and LKTST handle 
the relatively complex task of decom- 
piling colon definitions, the bulk of the 
FORTH language. LKC consists of dis- 
play formatting words, and operations 
necessary to step through the word un- 
til the end is reached. Hitting any key 
will abort the processing loop. LKC does 
the name printing using the word ID. . 
LKTST tests each code field address in 
the definition to see if the next one or 
two bytes contain an explicit literal, or 
a literal for one of the branching control 
structures compiled from the IF-ELSE- 
THEN or BEGIN-UNTIL family of 
branching words. Our recent additions, 
the run- time words for our CASE struc- 
ture, are also included. Note that the 
CASE literals for these cannot be 
predicted. Therefore, the sequence 

[ ' N = BRANCH CFA ] LITERAL 

is used to temporarily exit the compiler 
for purposes of computing the code 
field address of the word following the 
tick I'j. This address is placed on the 
stack and is used by LITERAL to make 
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( CASE EXftMPLE 


EIZAD1S127) 


! TEST 


( N ) 


BEGIN-CASES 




D CASE ." ZERO" 


END-CASE 


1 CASE ." ONE" 


END-CASE 


2 CASE ." TWO" 


END-CASE 


3 CASE ." THREE" 


END-CASE 


-2 CASE •'■ MINUS TWO" 


END-CASE 


EiASE CftSE ," SAME AS BASE 


END-CASE 


^ IZ RANGE-CASE ." 1 TG 12" 


END-CASE 


0< 1 CASE ." NEGATIVE" 


END-CASE 


ELSE-CASE ." TOO BIG" 


END-CASE 



END-CASES CR 



i TESTLOOP CR 17 -5 
DO 

I 8 .R 3 SPACES 

I TEST 
LOOP ! 



Listing 1: An example ot the decompiler output (or three dir 
ferent colon definitions. 

HEX LK! DASM 

LIT 3A ! LIT FE61 CALL CR JS 

OK 
lk; LKTST 
LIT ti9E N=BRANCH 10 DUP S LI. 2* o' 



SCR » 82: Example of ttie CASE construct used lor selecting 
terminal messages. Note ttiat anything which places a value 
onto the stack may precede the word CASE ; here we have lit- 
eral values, a fetch from the system variable for number base, 
and a logical operator to detect any negative number. The 
word TESTLOOP places this test into a loop for Illustration 



BRANCH 9 


=1 LIT 8DB N=eRANCH 


10 OOP 


ce . 1 + 


t BRANCH 


SI LIT 


9r. 


3 


N-BRANCH 


£J LKLIT 


BRANCH 


76 


LIT 9B3 


N=EiRANCH 


B LKLIT 


BRANCH 


68 


LIT 932 


N^BRANCH 


B LKLIT 


BRANCH 


SA 


LIT 913 


N= BRANCH 


8 LKLIT 


BRANCH 


1C 


LIT 147^ 


N=BRANCH 


E DUP Ct 


LKEMir 


BRANCH 38 


LIT C37 N=BRANCH 


A DROP 


1 


;:RANCH 28 


LIT 3DB6 


N=:ERANCh 


e LKLIT 


BRANCH lA 


LIT 3DDE 


N=^BftANCh 


8 LKLIT 


3RANCH C 


DROP BRANCH f DROP JS 






OK 










lk; MIN 










OVER OVER > OBRANCH 1 SWAP 


DROP IS 


OK 










DECIMAL 


OK 









[obviously] a literal. The other values 
are fixed for my system (but may be dif- 
ferent for others), and can be handled 
simiJarly, using the same syntax form. 
Otherwise the CFQ tool can be used as 
before. 



If one of the CASE branch tests is 
valid, the literal associated is printed 
and the address pointer is incremented 
the appropriate amount ( + 2 for all ex- 
cept the byte literal CLIT ]. Then a or 
1 flag is set to show it the end of the 



definition has been reached (only ;S 
signals an end) , The case of a text string 
literal is handled by the branch with 
LKEMIT . The ELSE-CASE branch re- 
ceives the most traffic, as most other 
words used in the definition are trapped 



^Jaciaion 
Ojrstema 



Dackion Syfttami 

P.O. BdiUOM 
Dtnlon. TX 78203 



SOFTWARE FOH TH( APPLE II- 

ISAM-OS IS an ince^raiflcE sel ol Applesolt roulinos IhBl gives incfehed file ceiidbililie^ 
lo VDui BASIC piogiams Relnewe bv key. paiTial key 0' ^caM^rtTiallv SpsCtf Iropn 
iJelvrvQ reccida 1^ aulomalpcallv leuse*] CapeEiililies end peilpimance thai melch 
praducls costing l^ice es mucK 
S50 DiiV, ABDiesoil 

PBASIC-DS 15 e sopJiislicdIed prep'Dcessai foi slpuclured BASIC U^e advanced 
logic constfiicls such ab tf .ELSE , CASE. SELECT, and many more DavelOD 
piEjgrams loi Irnegei or Applesoll En|OV like poAei cjl stiuCTuied I0911- ai a fracrion ot 
llw cost of PASCAL 
S35. Cisk. Applesolr 44aK. POV or Lan^us^e Cardl 

DSA^ OS IS a dis assemblei tur 6502 code Nov^ you can easily dis-assemble any 
machine language oiogiam fur ihe Apple ai"i use iKe dis-eHembled corit dnecHv as 
FPpur [0 voui assembJei Ois-assembles msliuclions and dale Produces code com- 
paii&lewilhih£S-C Assembler (versnn I fl 01 Apple's Toulkic assembler and ptosis 
S2S Dish. Applesoll 02K. POM or Language CardI 

FOHM-DS IS a complere system For tne delinilion nF inpul aid Quipur lrpn>s. EOBM 
OS supplies the auiomalit checking ol numenc input toi acceptable range o' values 
autumaiic loimallrnci of jiun'teni: output, and inany moi^ tea tu ins 
!2S Disk. ApplE5olM32K. ROM 01 Language CaidJ 

UTtL-DS IE a set of routines for use wiib Applesofr po lormat numeric Dulpui. selec 
lively clear variables lApplesoJi's CLEAR gels eveiylliingl. improve erioi handling, 
ar^d iriieilace mac^iiie language VLiith Applesofr pJbgrains Induces a special load 
louline for placing machine language routines urtdernealh Applesolt piogiams 
525 Disk Applesoll 

SPEED-DS IS a routine to rnodily the siaienienr Imhaga m an Applesolt piogram to 
speed 11^ e«eculip'i improvements of 5 201n are corYifnon As a bnrnj^ SPEED. DS 
includes machine language rounnes '-j speed slrmg riandlmg and reduce the riced lo 
ga'bage clean-up. Auiripr Lee Meadpi 
(15 Disk, Applesnfi I32K. ROM ui Language Caidl. 



lAddM.OO [Of Foraign Meil) 
'ApftlB II is a lagisEflieiE trademafh of rhs Apple Ccjmpuivi Co 




fim 




Ver. 2 For your APPLE II/IH- 

The complete professional software system, that meets 
ALL provisions of the FORTH-79 Standard (adopted Oct. 
19801. Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 

FEATtJRES OURS OTHERS 

79-Staiidarti system gives source portability. YES 

Pfofessionally written Lutorial & user manual 200 PG. 

Scieen editor with user-definable conlrols- YES 

Macro-assembler with local labels. YES 

Virtual mentory, VES 

Both 13 St 16-S()ctof format- VES 

Mullipledisk drives. VES 

Double-number Standard & String sKlensions. YES 

Upper/lower case teytjoard input. YES 

LO Bes graphics, YES 

Z-80 CP/M Ver- 2-x & Northstar also available YES 

Affordablei $99,95 

Low cost enhancement options: 

Floating-point mathsmatics. YES 

Hl-Res turtle-graphics. YES 

Data Base Management System. YES 

Apple D03/FORTH-79 tile transfer, YES 

Modom file transfer utilities. YES 

FOnTH-79 V-2 (requires d8K & 1 disk drive) 
ENHANCEMENT PACKAGES FOR V,2: 

Option I - floatingpoint & HI -Res turtle-graphics 

Option 2 - DBMS, DOS/FORTH conv, S modem 
COIVlBINATION PACKAGE 

(Postage Pajd- CA res, add 6% la>: : COD accepted) 



$ 99,95 

$ 49.95 
$ 49 95 
$179-95 



MicrolViotion 

12077Wil5hireBlwl # 506 
L.A-.CA 90035 1213) B21 -4340 
Specify APPLE, CP/M or Northstar 

Dealer inquiries invited. 
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here. The word LKLIT only saves us 
from filling LKTST with redundant 
code. I chose to print out the branching 
literals as signed numbers, but pure lit- 
erals are printed as unsigned numbers. 
You may prefer all of them to be printed 
as signed numbers. If so, the (LIT| line 
could also use the LKLIT word to 
replace the longer DUP ® U. 2+ 
sequence. 

You can see that the CASE structure 
is very flexible and quite valuable. The 
alternative, IF THEN structures, would 
look less obvious even though they 
might compile into the same resultant 
code. This is what languages are all 
about — making the job of the program- 
mer |or writer, poet, composer. . . } 
easier by offering useful structures for 
judicious selection. 

The decompiler is easy and straight- 
forward to use. Note that some defined 
words compile into something quite 
different from the source, especially 
the branching and looping structures. 
The most familiar is our CASE struc- 
ture, which compiles into machine 
code primitives. Therefore, the decom- 
piler output will not look like the 
original code, but understanding this 
simple transformation will help shape a 
better understanding of how FORTH 
performs its own work. I have included 
a sample (listing 1] of some words 
decompiled by LK: for purposes of il- 
lustration. The disassembler word 
DASM may, of course, be used individ- 
ually, and it saves having to enter the 
monitor. Just be sure that the starting 
address is on the stack. 

Apple DOS 3.2 in FORTH 

Another problem I encountered 
when using FORTH came from the fact 
that FORTH uses its own simple |but 
fast and effective) set of disk opera- 
tions, quite incompatible with the 
Apple DOS. I prefer these to the stan- 
dard DOS, as they are much more flexi- 
ble. But I still had a few BASIC pro- 
grams that make binary files, and I 
needed to use these in a FORTH appli- 
cation. I also have a PROM program- 
mer running in FORTH, and my con- 
ventional assembler only makes DOS 
files. So clearly there was a need for an 
effective "hybrid critter" to he created. 

Not all of the DOS functions were 
needed, but the groundwork is done if 
anyone wants to expand my DOS oper- 
ators. I only needed a CATALOG report 
and the BLOAD command. Loading 
other types of files is not much dif- 
ferent |but maybe pointless for Apple- 
soft or Integer BASIC files). Writing 



SCR * 33 



83C0381Z7> 



( DECOMPILER - PART 1 

HEX 

! LKEMIT ( ADR CHARCOUNT NXTADR) 

1+ 2DUP < PREPARE FOR OUTPUT) 

TYPE 22 EMIT SPACE i OF STRING) 
+ ! ( POINT TO NEXT WORD IN DEF) 



! LKLIT DUP e . 2+ ; 

i LKTST EEGIN-CASES ( 
89E CASE DUP B U. 2+ END 
SDB CASE DUP C@ . 1+ END 
953 CASE LKLIT END 

983 CASE LKLIT END 

932 CASE LKLIT END 

913 CASE LKLIT END 
1171 CASE DUP Ce LKEMIT 
1 END 



C37 CASE DROP 
C ' N=BRANCH CFA 3 

CASE LKLIT END 

: ' NRANGE=PRANCH CFA 3 

CASE LKLIT END 

ELSE-CABE END-CASE 
END-CASES ! — > 

SCR » SI 

( DECOMPILER - PART Z 



CFA LIT TEST) 

-CASE t LIT) 

CASE < CLIT) 

-CASE < LOOP) 

i-CASE ( +LO0) 

-CASE < OER) 

'-CASE ( BR) 

END-CASE 

CASE ( 

LITERAL 

-CASE < N=BR> 

LITERAL 
i-CASE ( R^BR) 
( OTHERS) 



IS) 



81C028J27) 



<■ APPLE II MONITOR DISASSEMBLER) 
t DASM ( ADR — ) 

3A •- FE61 CALL CR ; 

( DECOMPILE COLON DEFINITION) 
t LKC 

BEGIN DUP DUP >R < DO EACH PF ITEM) 
e Z* NFA DUP e IF AND A + 
OUT I? + C/L e > 
IF CR OUT ! 
THEN ID, Z* R> B 

LKTST ?TERMINAL OR i SPECIAL FIELD) 
UNTIL CR ; 



: LKU C0 030 t e . f < PRINT USER V) 


: LKD DUP 


( PFA > 


LKC . " PFA 


^2 = " 2+ DUP U. 5 SPACES 


e ." B = 


u. ; 


— > 




SCR » 85 




( DECOMPILER 


- PART 3 85CB2ei2&) 


! lk: «C0MPILE>> ' ( MORD IN-STREAM) 


80 OUT 1 


{ FOR DISPLAY FORMAT) 


DUP CFA e 




BEGIN-CASES 




EBE CASE 


LKC END-CASE 


F05 CASE .'■ 


CONSTANT " e . END-CASE 


F21 CASE .■' 


VARIABLE " • END-CASE 


FA2 CASE ." 


USER-VAR ■' LKU END-CASE 


13DA CASE .•■ 


00-DOEE> '■ LKD END-CASE 


ELSE-CASE 


DASM END-CASE 


END-CASES CR 


» 



< CFQ PRINTS THE CFA S CF OF ANY MORD) 



CFO 



t WORD IN-STREAM) 



-find 0= ?error drop 
[Compile: literal 
cfa dup •" cfa '■ u. 
5 SPACES a ." CF " u. ; 

DECIMAL 



SCR # 83 to 85; A FORTH decompiler handles colon definitions, conslanls. 
variables, machine code, and dellntng words. 
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SCR * 86 

( DOS 3.2 VOCABULARY 

UOCABUUARV DOS 

H£X 



S6fl02aiZ6) 
DOS DEFINITIONS 



( 8810 IS SECTOR READ-WRITE WORD) 

! SKID ( ADR CSECT F ) ( 1=R 0=W) 

MINUS 2+ B7Ft C! ( THE R/W FLAG! 
SWAP' e/FO ! ( THE ADDRESS STUFFEDJ 
GD /HOD 87EC C! Ei7ED C ! ( SECT/TRACK) 
8RWT5 DROP ; C DROP ERROR RETURNED) 

DECIMAL 

! eyte-table <builds allot o0es> + ; 
256 BYTE-table; sector-buf 



! RSECT 

SECTOR-BUF SWAP 

1 Rsio ; 

— > 



( CSECT ) 

( MOVE 1 SECTOR TO) 
C SECTOR BUFFER) 



SCR # 86: The disk IfO words and a sector buffer are the foun- 
dation for an Apple II DOS utility vocabulary. 



SCR » B7 



( DOS - PART 2 



87A02S126> 
TEST IF D0S3.2> 



?DOS 221 RSECT ( 

1 SECTDR-BUF CS 17 = 

2 SECTOR-BUF C0 12 = AND 0= 

IF ." NOT DOS 3.Z DISK" 7 EMIT QUIT 
THEN ! 



: DDS-FTYPE DUP B > 
IF 12 EMIT 15 AND 
ELSE SPACE 
THEN 
BEGIN-CASES 

CASE 81 END-CASE 

1 CASE 73 END-CASE 

2 CASE 65 END-CASE 
1 CASE 66 END-CASE 

END-CASES EMIT ; 



( TYPE ) 

( IF ITS LOCKED) 

( PRINT FILETYPE) 

C FILETYPE-TD-) 
( ASCII CASE) 
( CONVERSION) 

< PRINT FILETYPE) 



! TSLINK C BUFPTR CSECT ) 

SECTOR-BUF DUP Ce 13 « ( BUF TRACK*13) 
SWAP 1+ C0 * ! ( ADD SECTOR) 

SCR # 87 to 88: The DOS words for the CATALOG command In- 
clude a test to be sure that a DOS disk Is In the drive. 



DOS files is more complex, as there are 
a lot of housekeeping details associated 
with sector allocation. 

The DOS words are all defined in a 
separate vocabulary, so that when they 
are not needed they cannot be acciden- 
tally invoked. The compiler source is 



shown in SCR # 86 to 91. Let's take a 
look at some of the details we need to 
take care of. 

The FORTH system I have employs 
a set of disk-handling words. Among 
these is a primative called &RWTS , 
which handles the read and write 



operations to defined tracks and sec- 
tors. A FORTH definition, &I/0 , sets 
up the operations and invokes &RWTS . 
But &RWTS returns an error message if 
we try to read some DOS sectors, 
because a FORTH initialized disk is ex- 
pected. We just make our own version 
of &I/0 , called &&IO , which discards 
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this error message, (See SCR* 86.) Two 
messages arc known to be returned by 
&RWTS : one for the above-mentioned 
error, and another for a write to a write- 
protected disk. Since my words do not 
write, I simply ignore the returned 
messages. &&,IO also allows us to use 
only one number for the track and sec- 
tor, which is the "contiguous sector" 
number, shown as "csect" in the com- 
ments. It is simply the track number 
multiplied by the number of sectors per 
track plus the sector number |13T + S 
for DOS 3.2), so it ranges from to 454. 
This is easier than trying to untangle 
two similar numbers. 

Next we sec a byte table-defining 
word used to make a sector buffer, 
called SECTOR-BUF , which returns an 
absolute memory address when the 
relative byte number is given. The 
word RSECT will load this buffer from 
the supplied sector number |csect), 

SCR # 87 has a disk-type test word, 
?DOS , which checks the DOS VTOC 
sector for some DOS -related informa- 
tion, so that accidental use on a 
FORTH disk will not send you off on a 
wild sector hunt, possibly without an 
ending other than hitting Reset, Other 
error-checking words arc included, and 
all thread back to the word QUIT, 
which aborts the DOS command. Also 
on this screen is a test and report by 
DOS-FTYPE , of DOS file types, 
including whether or not the file is 
locked. The word TSLINK takes a 
pointer into the sector buffer where a 
track/sector link resides, and returns 
the contiguous sector number of that 
link. On SCR # 88 is the director (or 
catalog] scan word SCAT for the cur- 
rent directory sector in the sector buf- 
fer, which checks to be sure the entry 
isn't empty or deleted. If it is active, 
SCAT reports the file type, sector 
length, and filename. 

The word we will use to see the full 
catalog is the same as in DOS, the 
familiar CATALOG , This word loads 
the first directory sector into the sector 
buffer, uses SCAT to make a report, 
and then links to the next directory sec- 
tor, repeating until the link is a null. 
The volume number is not displayed or 
tested. 

The definitions on SCR # 89 and 90 
do the directory searching for a user- 
supplied filename, and can be used for 
expansion where similar directory 
searching is required, SCNSCT 
searches the current directory sector in 
the buffer for a match to what FILE- 
NAME retrieved from the input stream. 
The word -TEXT is a non-standard 



SCR * 88 

{ DOS - PART 3 



B8A038127) 



( ONE SECTOR OF CATALOG DISPLAYED) 

: SCAT 222 11 < > 

DO I.SECTOR-EiUF C0 < GET FIRST BYTE) 
DUP 255 = SWAP 0= OR 0= C ACTIUE?) 
IF CR I 2+ SECTOR-BUF C0 DOS-FTYPE 

I 33 + SECTOR-eUF CO 1 -R 2 SPACES 
13 + SECTOR-EiUF 30 TYPE 
THEN ?WAIT 35 C PAUSE? THEN LOOP) 
+LODP ! t 35 BYTES/ENTRY) 



( DISPLAY COMPLETE CATALOG) 



! CATALOG ?DGS 

233 

BEGIN 
RSECT SCAT 
1 TSLINK -DUP 

UNTIL CR i 

— > 

SCR * 89 

( DOS - PART 4 



( TEST IF DOS 3,2 DISK) 
( FIRST SECTOR OF DIR ) 

( GET 8 DISPLAY CAT) 

0= ( MAKE LINK S CHECK) 

( REPEAT IF NOT NULL) 



89A028126) 



( SCAN BUFFER FQR FILENAME MATCH) 

: SCNSCT 2Z2 11 C KEVADR CNT Nl NZ) 

DO 
2DUP 
I 3 * SECTOR-BUF < POINT TO FILENAME) 



-TEXT 0= 



( COMPARE STRINGS) 



IF ZDROP I -1 LEAUE 



( HIT) 



THEN 
+-LOOP 



35 



< IF hit: 

< IF miss: 



( MISS, TRY AGAIN) 
N1=T/S PTR N2= -1) 
N1=KEYADR NZ=CNT) 



( GET FILENAME FROH INPUT STREAM) 



! FILENAME 
13 WORD HERE 1+ 
HERE CB 

OVER ♦ 30 BLANKS 
30 DUP 1* 
DO I HERE + DUP CO 
128 OR SWAP C! 



( ADR COUNT) 

( GET FILENAME 8 ADR) 

< AND ITS LENGTH) 

< TRAIL WITH BLANKS) 



< 



FORCE HIGH EilT) 
{ HIGH) 



LOOP i < COUNT ALWAYS = 30 ) 

— > 
SCR * 90 

( DOS - PART 5 90A018127) 

; NDFERR CR ." FILE! NOT FOUND" 
7 EMIT SP! QUIT J 

i FTERR CR ." FILE TYPE MISMATCH" 
7 EMIT SP! BUIT ! 

( SCAN FULL CATALOG FOR FILENAME) 



! CATHUNT 

FILENAME 

?DOS 233 

BEGIN RSECT 
DUP 0< >R 
1 TSLINK DUP 
R> CR 

UNTIL 

DROP 0< 0= 

IF NOP ERR 

THEN ! 

< POINTING TO 

— > 



C E:IJFPTR) 

( INPUT FILENAME) 

{ CHK disk; 1ST CAT SECT) 

SCNSCT < RD, SCAN SECT) 

( TEST HIT/MISS) 

0= 1 GET LINK 8 CHECK) 

{ IF NULL LINK CR HIT) 

C BE DONE, ELSE REPEAT) 

( WHAT IS RESULT?) 

( EXIT IF FOUND) 
CATALOG ENTRY IN BUFFER) 



SCR # 88 (o 90: These words locate a supplied f ItenamB In the directory and then 
point to the track/sector list link. 



90 
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SCR #91 

( DOS - PART 6 



91A0'(G127) 



2* CS 7 AND 

IF FTERR 



ELOAD ( LOADADR ) 

>R ?STACK R> ( STACK HAS ANYTHING?) 

CATHUNT DUP SECTOR-EUF < SCAN CATALDO 

1=0= ( TEST FILETYPE> 

< NOT E COMPLAIN) 

THEN TSLINK RSECT ( GET T/S LIST) 

PAD 256 12 ( LOOP TO GET EACH SECTOR! 

DO DUP < SAVE SECTORS IN PAD AREA) 

I TSLINK DUP 0= < IS IT A NULL T/S?) 

IF DROP 2DR0P LEAVE < REACHED END) 

ELSE 1 S8I0 256 + < DATA INTO PAD) 

THEN 2 ( LOOP TO CHECK NEXT SECTOR) 

( UNTIL DONE) 

GET TRUE FILE LENGTH) 

( SETUP TO MOVE DATA) 

{ HOVE, THEN EXIT) 



+LO0P 

PAD 2+ e ( 

PAD ■\ + ROT ROT 
CHOVE I 



( EiE SURE LOADADR IS PRESENT) 

< END OF DOS VOCABULARY) 

FORTH DEFINITIONS C RESTORE FORTH AS) 
( CURRENT AND CONTEXT) 

SCR # 91: The BLOAD operation is done with one deftnltion. 
Similar load operations could be created for other (lletypes 
using the previously defined wofds lilie CATHUNT. 



^6502 



SCR t 92 



< EXTHA WORDS FOR DOS OR ?? 92A01«127) 

( SrRINC CDMPAF^E) 
t ADRl COUNT ADRZ F) 

I prepare: do paraheters) 

( DROP PRIOR RESULT = U) 

ce OVER I * ce - ( *compare) 

( IF <> CAN QUIT LOOP) 

< WITH DIFFERENCE) 

( IF TF(Y NEXT CHAR) 

( TEST RESULT S MAKE +/-1 ) 

DUP AGS / ( FROM DIFFERFNCE) 

ROT ROT 2£)R0P I ( DROP ADRS) 



: -TEXT 
ROT G 
DO DROP 

OVER I 

IF 

THEN 
LOOP 
DUP 
IF 
THEN 



LEAVE 



< IF 



KEY HIT, HAIT FOR) 

( ANOTHER ONF,, ) 

( ALLOWING A PAUSE) 



0- 



HEX 
CODE ?WAIT 

coon BIT, :; 
IF, COlO BIT, 

eSGIN, COOO BIT, 
UNTIL, 
THEN, COlO BIT, 
NEXT JMP, 
ENO-CODE < ?WAir FOR APPLE II ONLY) 

DtCIMAL 

SCR # 92: A string- com pa ring word and a start-stop display 
word for DOS or any other application. Some systems may 
already have one or both ol these. 



SCR t 93 




( NON-DESTRUCT 


STACK DISPLAY 93A01S127) 


DECIMAL 




: s?? 


( ■SI -SM) 


SP0 DUP 1B9 ? 


( GET CURRENT STACK ADR) 


IF CR 


( IF NOT EMPTY, PRINT) 


2 ~ 1B7 


( ONE ITEM AT A TIME) 


DO I G? B .r 


( IN LOOP) 


-2 


( NEXT ADR) 


+LaDP 




ELSE DROP 


< EMPTY STACK) 


THEN CR ! 


( EXTT MITH CR FIRST) 


SCR # 93: A debugging tool permits display o( the stack con- 


tents without ailering the stack; (he most recent values appear 


on the right. 


i 
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• is ROMABLE 

• costs under SlOO 
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Siring Functions, Dish Dala File aQQtIS 
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string-comparison word in the Cap'n 
Software release. If you don't have a 
similar string- compare word, you can 
use my high-level definition shown in 
SCR # 92, which is a bit slower than 
the machine-code one in my system. It 
takes the address of string A, the 
character count, and the string B ad- 
dress, and returns a single flag which is 
- 1 if string A is less, -i- 1 if greater, and 
if equal. This screen also shows the 
?WAIT word that allows us to stop-start 
long catalogs. If you compile any of 
these words, you might want to place 
them in the main FORTH vocabulary 
so they are accessible to other applica- 
tions you add later. 

These words are used by CAT- 
HUNT to actually search the entire 
directory for a filename match. The 
result returned is the sector buffer 
pointer to the matched directory entry 
left on the stack. This pointer actually 
points to the track/sector list link. The 
next higher word definition | BLOAD 
in this case] merely has to load that sec- 
tor into the sector buffer and start to 
process this list. If the search is unsuc- 
cessful, an error message-quit sequence 
aborts the whole operation, so there is 
no return from a CATHUNT without 
our desired prey. 



What's left? SCR # 91 has our user- 
invoked word BLOAD , It looks blacker 
than other screens, because of heavy 
commenting. It does a simple check for 
at least one stack entry of any value so 
an empty stack |no load address sup- 
plied] will not cause problems with the 
final positioning of the data by the 
CMOVE word. An additional file type 
test is made to be sure that the found 
directory entry is indeed a binary file. 
Then the track/sector list is loaded in- 
to the buffer RSECT - The actual file 
transfer is to the free area above the 
FORTH dictionary, beginning at PAD . 
This extra buffering is necessary since 
the first sector has four non-data bytes 
specifying load address and file length, 
and since this true length may not be a 
multiple of one sector (256 bytes] . 
When the whole file has been read, the 
file length data is placed on the stack 
along with the address of our PAD and 
the origin ally- supplied load address, 
CMOVE moves it into place. 

You or your program must take care 
in supplying this address, as CMOVE is 
happy to move this data anywhere in 
memory, including over FORTH itself. 
For this reason, the DOS default load of 
a binary file to its original load address 
was not implemented. The use of the 



BLOAD word (or CATHLINT and any 
expansion words using it| involves 
specifying a filename with or without 
spaces, followed by a carriage return, 
30 characters maximum (the DOS 
length limit). For example: 

HEX 6000 BLOAD JUNKFILE 
XYZ (return) 

Doing a VLIST after this DOS 
system is compiled into the FORTH 
dictionary will reveal only one word: 
DOS, itself. This is the name of a new 
vocabulary, and to use it you must type 
DOS first. How are we doing on mem- 
ory? The DOS vocabulary as shown 
here consumes a tidy 1154 bytes in- 
cluding the sector buffer. We can't 
claim to have even half of the real DOS 
capability, but the foundation is laid. 
However, the Apple DOS 3,2 version 
uses over 9K of memory. My develop- 
ment time was only at eight to twelve 
hours. 

Bonus Offering 

As I am debugging a FORTH pro- 
gram, I often want to see the slack con- 
tents after a certain word is manually 
invoked from the keyboard. The , [dot] 
print method is not suitable, as it both 
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empties the stack and displays the con- 
tents in reverse order to the convention 
of FORTH documentation, where the 
top of the stack is on the right. I have 
written a very short non-destructive 
stack display word, S?? , for my system. 
The literals are for the Cap'n Software 
version. 

The stack address for different sys- 
tems can be found by typing SP! SP@ . 
and noting the result. The 6502 fig- 
FORTH model uses a zero page stack 
that grows downward. Other releases 
for the 6502 probably are based on this 
model with perhaps a different starting 
point. Simply alter the literals in the 
listing in SCR # 93 and improve your 
debugging efficiency. 
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FORTH in a Nutshell: FORTH is a member of a family of computer languages 
known as Indirect Threaded Interpretive Languages. The most important 
characteristic of these languages is that they consist of subroutine- like 
modules which contain lists of addresses of previously defined modules; none 
of these address lists is executable. A relatively small number of elementary 
function machine language routines form the foundation (sometimes called the 
nucleus or kernal) of these address lists, as all of the lists eventually thread 
back to these executable code modules. An extremely simple address inter- 
preter processes the address lists. 

FORTH-type languages usually contain their own disk operating system, a 
text editor for source code preparation, a machine language assembler and the 
language compiler itself. They are all memory- resident, usually use only 10-12 
kilobytes, and are well-structured and self-consistent in fonn. 

It is important to see the hierarchal nature of these lists. Each group of ad- 
dresses, representing sequences of earlier- defined functions, can be represented 
with only one address in any number of subsequent lists. This resembles a dic- 
tionary where new words can be defined from existing, previously- defined, 
words. FORTH calls this grouping of lists a dictionary, and it is what causes the 
language to be expandable. The expansion can be to any part of the language 
already present, such as the editor, compiler, run-time functions, or disk 
system, or it can be an entirely new application program. For this reason, there 
is no difference between the body of code called the "language" and the body 
called the "program," distinctions that characterize almost all other computer 
languages. 

Other features include the (of ten- criticized) postfix notation |or Reverse 
Polish Notation — RPN] which greatly simplifies the processing of arithmetic 
and logic, and a parameter stack for passing results from one defined function 
to another, eliminating frequent use of variables and thus improving speed. 



CBM/PET? SEE SKYLES ... CBM/PET? 



PET owners everywhere sing 

J^J Thanks for the Memories J J 
to good old Bob Skyles 

...they should., .because Bob Skyles is the only complete 
source for memory boards for any PET ever sold. Old Bob 
won't forget you. 

And ihe Skyles memory systems have ihe highest quatily comrol of any compuier prod- 
uct ever. Over 100 million b'm of Skyles memory boards are already in Ihe field; you tan 
counr Lhe loial number of failures on the fingers of one hand. Firs[ quality static and 
dynamic RAMS, solid soldered on first quality glass eposy. That is why they are guaran- 
leed — in spite of t/ie new tower prices — for a full two years. 

The boards connect directly to the data bus on your board with ribbon cable and 50 pin 
connectors that keep the data bus open to the outside world. Installs in minutes without 
special tools or equipment... jusr a screwdriver. 

Because of our new dynamic memory design, and to celebrate the Skyles' Third Antiual 
Survival Anniversary, here are the smashing new prices: 

The SK Memoty System originally S250.00 now S2OO.0O Save S 50.00 

The I6K Memory System originally USO.OO now S300.00 Save SI50.00 

The 24K Memory System originally $650.00 now $400.00 Save $250.00 

. ..For any PET ever made. When ordering, just describe your PET by model number 

and indicate the amount and type lor brand) of memory currently in the unit. 

Shipping and Handling lUSA/Canadaf S3, 50 (Europe/ Asia) S15.00 

California residents must add 6'!'a/6'/i % sales lax. as required. 



Skyles Electric Works 

!3IF. Soulh Whisman Road 
Moumajn View, CaliromlB 94041 
(41S) 965-1735 



Visa/Maslercard orders; call lollfrec 
(800) 227-9998 (except California). 
California orders: please call (415) 
9*5-1735. 



/lAiaO ■■■ S31A>1S 33S 6l3d/l/\iaD"" 
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DOUBLE DOS PLUS 

for Apple Computers 
$39.00 



OTHm UMOUg WWOMCTS Fl 



2 01-839-347B 



MasterCard 1 



w 



■Z^TH 




DOUBLE DOS Plus— a piggyback board that plugs into the 
disk-coritroller card so ttiat you can switch select between 
DOS 3.2 and DOS 3.3. Works with the language system elimi- 
nating the need in many cases to boot the BASICS disk. Also 
eliminates the chore ot converting all of your 3.2 disks to 3.3 

NOTE: *PPLE IS a regislered tradamaiK of APPLE Computer, Inc., Cuparllno, CA. 

WHY IS DOUBLE DOS PLus belter? 

• Nothingneedstobesoldered, just pluginandgo. 

• Since all four ROMS are used, all software will work, 
even early 3.1 DOS. 

• Because the ROMS fit on the back of the board, It has 
the thinnest configuration allowing full use of slot #7 

• One set of ROMS Is powered up at a time, thus saving 

power. DOUBLE DOS PIui ttmiint APPLE DOS ROMS 

• Full 90-day warranty from TYMAC. 

DISTRIBUTING INC. 



MICRO-WARE 

P.O. BOX 113 

POMPTON PLAINS, N.J. 07444 



Mk 



!WP 



'Mmme^y 



WAM DISTWIUTIIW IWO;^ 



' The aMLC card— Two sidBd 100^ Dlaelic rsTetwica csta foi Ihe A«)le comDUlef 
Loaded vvnti information of inlarsst to all Appla owns's *3 9B 

PARALLEL PRINTER CARD— PPC-100— A UniuaiBSI CsniionicB lype parillal piirlsr 
tcaiO qnmplate «ilh cable anO conneclor Ttiis uniguB t»aiO allows you to turn on ana off 
ma high Dil so tfiat you can access a*)itional leatures in many pnnlsis Us* wilfi EPSON. 
ANAOEI. STARWfilTER. NEC. SANDERS, OKI, a nd otiier wiin standard Cwlronics 
configuralion — i / W 1139.00 




THE DOUBLE BOOTER ROM— Plugs into the smBly 08 Sookel on the Apple mother- 
board or tr>e imager POM Caid to pioviOe a !3 sector bool without using the BA6^C5 Disk 
DouDIEBooler may also Da used in the MOUNTAIN HARDWARE ROM PLUS DoarO This 
chip wii not work in a plus machir* unless il contains an Integer boaul o; a ROM Plus 
ooara 129 <» 

DISK STIX— Contains 10 doien disfcens labels wilh eiihsr 3 3 or 3 2 designation Room 
tor program names and type also 13 3B 

**ik***«**** *S0FT1IKARE •****••*****• 
SUPER SEA WAR—Hlresbaltlaship type simulation . £13 95 

ULTIMATE XFEB— A" Islephona sotlwara transfer Dioejram. uses DC Hayes Assoc 
miciomtxlem J25 00 

ROAD HALL YE— Hires driving game with Sdillerenl full screen Iracks StS 00 

MISSILE CHALLENOEH— Hires arcade lype game where you (folsna your cities from 
(ailing missiles. 8 levels & writes name S High score [odisk S19 95 

SUPER Pin- Hires screen dump fc( the EPSON MX.80, inverse or normal, larger Ihan lull 
page graphics in 2 o^ienlalions Needs Tymac PPC-IOO Printer boarijor we will upgraOe 
your EPSON DosrO foi 125 S39 95 

ORAPH-Fri- A hires graphing program that produces bar charts, pie cHaris and line 
graphs Ha&autc scaling lealure too S2f 00 

^■^—■STILL MORE APPLE GOODIES^^"^^ 

APPLE KEYBOARD SYNTHESIZER— 48 riDlfl {C to C] AGO Keyboard wJlh 3 sawTooth sq v^ave 
stspefs. » audki oscllalorsi 3 low pan flHera, 4-64 p<rirt shaps controlera. 2 envfllDoa 

Oflneraloia Compiele ayalem $996 

REVBOARDONLYwimApplelnteffoce *649 

QnAPHICNOTEWRITER-H*-Mnoto*fflaforaynlh8alJBfayat«m MS 

SyPEH-PIX CTO— l-Nraa acraan Oump Tor OKI MJCfotina 80, 83, aa Prtntare. Same fealures as 

aupei pin. Needs Tyrrac PPC-IOO Board S24 95 

NIBBLES AWAY— The best dkfik back up piofliair Id dale Allows you to tr\^<9 backgpB aE ntos: 
vi^ry diet ever produced ta Iha Apple. Over 1 user deflnea paramerers Inckirflng aynchrDniied 
ft lifisvnchronized coplea as won as eirtamalic half IracWng ar>a raw dale [ranarar S59 



Why you need The Inspector. 



If you're serious about programming, you need 
to set all your utilities together in one place — 
insuk your ^ple. The Inspector comes on an 
Eprom that simply plugs into the D8 socket, or on 
a disk ready to merge with Integer Basic for 
automatic loading on boot Either way, it stays at 
your fingertips, reiuly to call without disturbing 
your current program. 

The Inspector puts you in total control of both 
memory and disks. You can search forward 
and backwards, edit, read nibbles, 
map disk space, dump the screen 
lo a printer, examine every secret 
of your Apple. Use The Inspector 
lo repair blown disks, undelete 
files, input "illegal" commands. 




read and alter files, locate strir^ in memory or on 
disk. The uses are endless. iTie manual, alone, is an 
educ^on. And it's always there when you need it. 

You need (he most powerful disk and memory 
utility available for your Apple. You need tiie 
Inspector 

See your local dealer, or order direct for just 
$49.95. Mastercard and Visa holders order 
toll-&«e, 1-800-835-2246. 

OAAEGA MICROV\iARE,INC 

222 SO. RIVERSIDE PLAZA 

CHICAGO. IL 60606 

312-648-1944 



Apple is 1 ref^L^Lerol Irailf mark i][ Ap^r CompuLer. \nz 
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Stepper Motor Control: 
A FORTH Approach 



stepper motors translate digital 
commands to motion, bridging 
the gap between computers and 
robots. A flexible command 
language, written in FORTH, 
translates natural, Englisti-like 
commands to precisely controlled 
movement. 



Mark Bernstein 

Department of Chemistry 

Harvard University 

12 Oxford Street 

Cambridge, Massachusetts 02138 



If you want your computer to travel 
around your house, to assemble parts in 
your factory, to guide your wheelchair 
or steer your telescope, your computer 
will need to control a motor. Motors 
translate electronic commands to 
physical action. They are "digital-to- 
mechanical" converters. Let a com- 
puter control motors, and it becomes a 
robot. 

Recently, our lab needed a com- 
puter-controlled motoi for our laser 
system. We built a carriage which car- 
ries a set of laser mirrors, and which 
rides on a linear track [figure 1). The 
computer moves the carriage back and 
forth along the track, measuring the 
laser's output and its effect on a 
chemical sample as the carriage moves. 

The Stepper Motoi 

Stepper motors are convenient 
devices for many computer- control led 
chores. Unlike most motors, which 
revolve continuously, stepper motors 
move in steps or jumps, one step at a 
time. The motor's step size is accurate- 
ly fixed by the motor's construction, 
with step sizes ranging from 90° to 
0,005° or less. 



Stepper motors can imitate regular 
motors by stepping at a constant rate. 
Unlike other motors, though, they can 
easily move a fixed distance and then 
stop immediately without complicated 
brakes. Steppers can reverse direction 
at any time, and a stepper motor can 
easily turn five steps forward, two steps 
backward, and then start moving for- 
ward again. 

Steppers do have limitations 
though. They are generally restricted to 
moderate speeds and moderate loads. 
They cannot handle jobs that demand 
high torques. Unlike other motors, 
they consume power even when they 
aren't moving. Small steppers, in par- 
ticular, tend to get hot. 

Still, stepper motors are ideal for all 
sorts of personal computer tasks. Most 
personal tasks don't require tremen- 
dous speeds or great power, but precise 
movement and simple, accurate con- 
trol. These are the steppers' forte. 

The integrated hardware and soft- 
ware system described here can control 
many different types of motors, ranging 
from miniature versions the size of a 



quarter to heavy-duty, high- torque 
models. This hardware tool is controlled 
using a special control language, an ex- 
tension to fig-FORTH, which permits 
simple, convenient programming. The 
control language "knows" the charac- 
teristics of the motor, so the user need 
not be concerned with such details. In- 
stead, programs use human units and 
natural commands, like 

MOVE 5 INCHES FORWARD, 



The Motor Interface 

The heart of our stepping motor 
interface is the SAA1027 motor driver 
[figure 2|. This IC, manufactured by 
AIRPAX/North American Phillips and 
Signetics, can control a wide variety of 
stepping motors. 

The computer provides two simple 
control signals. To advance the motor 
one step, the computer transmits a 
brief negative-going pulse on the [nor- 
mally high) step line. The diiection 
control signal selects clockwise or 
counterclockwise rotation. If this line 




Figuro 1: Our stepping motor drives a platform or carriage (center) back and (onti 
along a 2' track. The motor (tildden behind the carriage) drives a pinion which 
engages a rack gear embedded In the track. Laser mirrors are mounted on top of 
the platform, and can be positioned precisely under the computer's control. 
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Figure 2: The SAA1027 stepper motor controller. This device accepts step and 
direction commands from the computer, and drives a stepper motor connected to 
the 4 coll outputs. 



is low, the motor advances in the 
clockwise direction and if the line is 
high, the motor lums counterclockwise. 

The chip's four outputs, Coill- 
Coil4, can be connected directly to a 
small imipolar stepping motor. Step- 
pers are manufactured in both unipolar 
(8-wire] and bipolar (4-wire) varieties. 
The SAA1027 is intended for use with 
12V unipolar motors. Adapter circuits 
can be built for use with bipolar 
motors, or motors requiring high vol- 
tages or large currents. 

Both the stepping motor and the 
SAA1027 IC require a I2V power sup- 
ply [figure 3], We use an opto-isolator 
to translate the computer's TTL output 
signals to the motor's 12V logic levels. 
The op to- isolators also prevent motor- 
generated inductive spikes from dam- 
aging the computer. 



Software Requirements 

This interface places few demands 
on the computer. The computer con- 
trols the motor by generating two sim- 
ple signals. 

The direction signal selects either 
clockwise or counterclockwise 
rotation. 

The step signal when pulsed low, 
commands the motor to advance 
one step in the selected direction. 



No critical timing parameters need 
be met, except that the motor's max- 
imum speed should not be exceeded. 
The top speed is a function of the 
motor's power and torque capacity, and 
of the load it is asked to move. High 
speeds can be obtained for light loads, 



or by using heavy-duty motors. If the 
motor is stepped too quickly, it may 
skip or stall. 

Of course, we could easily write 
programs in BASIC or assembler to 
control such a simple device. For exam- 
ple, we could use a statement like 



POKE 59459-1- 15,PEEK{59456 
-H5)0R 64 



to tell the motor to move clockwise. 
But FORTH permits us to extend the 
language to make the syntax easier to 
read, write, and debug. We replace a 
forest of PEEKs and POKEs with simple 
statements like " MOVE 1 INCH 
BACK". 



The Motor Commands 

All motor-control commands begin 
with the keyword MOVE. MOVE has 
no immediate effect, but tells FORTH 
that motor-control commands follow. 
Next, we must specify the distance the 
motor should move. Our motor con- 
trols a carriage which travels back and 
forth along a track (figure 1], so we per- 
mit motor motion commands to use 
either angular or linear units. Examples 
of legal commands are: 

10 INCHES move 10 inches 

1 INCH move 1 inch 

7 CM move 7 centimeters 

70 MM move 70 mjllimelers 

213 STEPS move 213 motor steps 

90 DEGS advance motor 90 degrees 

3 REVS advance motor 3 revolutions 



«_ 



direction 1BO| 
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Figure 3: The stepper motor Interface circuit. Opto-lsolators protect the computer's output port and translate TTL logic levels to the 
12V logic required by the motor control chip. Small motors can be driven directly by the control IC; larger motors may require exter- 
nal pass transistors on the coll outputs to handle the heavier currents. 
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We may optionally specify a motor 
speed by invoking the commands 



FAST 


fastest 


CRUISE 


moderate 


SLOW 


slow 


CRAWL 


very slow 



The motor speed may also be specified 
by setting the variable MOTOR-RATE. 
If no motor speed command is issued, 
the previous speed remains in effect. If 
no speed commands are issued at all, a 
default speed [normally "slow") is 
assumed. 

Finally, the commands FORWARD 
and BACK perform the actual move- 
ment. FORWARD turns the motor 
clockwise; BACK turns the motor 
counterclockwise, A distance must be 
specified before FORWARD or BACK 
can be invoked. 



Implementing the Control 
Language 

Listings 1-4 contain a FORTH 
implementation of this stepping- motor 
control language. This language exten- 
sion requires less than fifty lines of 



FORTH, containing no assembly- 
language or CODE definitions. To pre- 
serve flexibility and assist new imple- 
mentors, many CONSTANTS and VAR- 
IABLES have been explicitly defined. 

The first screen of the implementa- 
tion (listing 1| is devoted to declaring 
and defining constants and variables. 
Most of the values are installation- 
dependent addresses, and may require 
changes for different computers. 

Our system uses a 6522 VIA parallel 
port (the PET "user port") at address 
$E840. The motor controls are con- 
nected as follows: 



direction control 
step control 



PA6 
PA7 



Data should be written to the address 
called M-PORT. The corresponding 
VIA data- direction register is called 
M-DIR. The words FWD/REV and 
< STEP > are bit masks for the 
direct ion- control bit and the step- 
control bit, respectively. 

The variable MOTOR-RATE deter- 
mines the minimum interval between 
steps. High values correspond to long 
intervals between steps, and so produce 



HEX 

VOCRELiLFlRV MOTOR IMMEDIRTE 

MOTOR PEFIHITIONS 

< flUIiRESS OF MOTOR I/O FORT :> 
Etf4F COHSTflNT M-PORT 

■; flliBRESS OF MOTOR DRTR-DIRECTION REG ) 
ES43 COHSTflNT M-DIR 

< mSK FOR MOTOR DIRECTION BIT > 
40 COHSTflNT FIJD/REV 

C MASK FOR MOTOR STEP BIT > 
SO CONSTANT ^STEP^- 

DECIMAL 190 VflRIRBLE MOTOR-RATE 



Listing 1: Screen 60 — Stepper Motor, Constants 

HEK 

■; INITIALIZE THE MOTOR VIA PORT > 

'^MOTORJ M-rUR a 
PUD/REV OR <SrEP:> OR 
M-rUR '. . 

■■: MOTOR SPEED COMMANDS .J 
DECIMAL 



FRST 20 
CRUISE 40 
SLOW 100 
CRAWL 1000 



MOTOR-RATE ! 

MOTOR-RATE ! 

MOTOR-RATE > 

MOTOR-RATE ! 



Listing 2: Screen 81 — Initialization, Speed Control 



slow motor rotation. For our motor 
(l.S^/step] and gearing-ratio (about 
0.0031 in. /step] typical values of 
MOTOR-RATE lie between 25 and 5000. 

Listing 2 includes commands for in- 
itializing the motor port and for setting 
motor speeds. The command (MOTOR) 
ensures that the I/O port is properly 
configured to output data on the 
direction-control and step-control 
lines. The speed commands which 
follow store convenient values into the 
variable MOTOR-RATE. The actual 
numbers corresponding to FAST and 
SLOW depend on the application, and 
may be altered to suit special needs or 
different motors. For example, our 
spectroscopy work requires a very slow 
CRAWL, but testing and debugging de- 
mand that the carriage move fast 
enough to notice! 

Listing 3 contains the commands 
used to specify the distance the motor 
should move. Programmers may prefer 
to use many different units, perhaps 
even using several different units in 
one routine. For instance, we use 
degrees, inches and centimeters in 
various programs. 

The distance specification com- 
mands convert all the various human 
units into motor steps, the unit the 
motor control understands. The values 
of the constants STEPS/INCH , STEPS/ 
REV (steps per revolution) and 
STEPS/CM are determined by the step 
size and gearing ratio of the motor, and 
will vary from one type of equipment 
to another. The appropriate values can 
be determined from the design of the 
motor and gear system, or can be found 
by trial and error. 

Notice that INCH and INCHES are 
both defined [and do the same thing), 
so that the ungrammatical commands 
like 1 INCHES are not required. 



The word DECS, which converts 
degrees to steps, deserves some com- 
ment. Fig-FORTH normally calculates 
arithmetic results using 16-bit signed 
binary numbers, so that numbers as 
large as +32767 can be represented. 
Since the motor step size may be very 
small, STEPS/REV may be quite large. 
Moreover, FORTH truncates standard 
division results. Hence, it is important 
to approach the calculation 



steps = degrees x 



steps /revolution 
360 



with some caution, FORTH's "/MOD 
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EECINflL 

324 COM-STRHT STEPS.'INCH 
240 COHSTftUT STEPS/'REV 
lis CONSTflHT STEPS/CM 

INCHES STEPS/INCH * ; 
INCH INCHES , 



REVS 
REV 



5TEPS.'REV * 
REVS ; 



CM STEPS/CM * . 
Pin CH 10 / .; 

DECS STEPS/REV 360 */mD SWAP DROP 



LfSl/ng 3: Screen 82 — Motor - Unit Conversion 



performs the multiplication and divi- 
sion in one step, using a 32-bit inter- 
mediate buffer. In this way, we can 
avoid problems with either overflow or 
truncation. 

Listing 4 contains the definitions of 
STEPS, FORWARD, and BACK, the in- 
structions that actually control the 
motor. STEPS performs a long DO loop 
one time for each step of the motor. 
First, the < STEP > bit of M-PORT is 
toggled, causing the motor controller to 
advance the motor one step, Next, 
STEPS checks the "run/stop" key and 
calls ABORT (FORTH's version of 
STOP) if the run/stop key has been 
pressed. The command " 20 BEEP " 
makes our system emit a high-pitched 
beep, indicating that the computer has 
responded to the stop request. 

Finally, provided that the run/stop 
key was not depressed, STEP runs 
through a delay loop MOTOR-RATE 
times before proceeding with the next 
Step command. 



FORWARD and BACK both leave 
the stack unchanged, and both call 
STEPS. FORWARD sets the direction 
control signal high, calling for 
clockwise motion, while BACK sets 
the direction control signal low, re- 
questing counterclockwise motion. Both 
FORWARD and BACK end with a com- 
mand to return the user to the normal 
FORTH vocabulary. 



Finally, we come to the MOVE 
command [listing 5|. MOVE tells 
FORTH that the following words are to 
be treated as motor-control commands. 

The motor-control commands are 
all grouped in VOCABULARY MOTOR 
to avoid confusion with other com- 
mands which might share the same 
names. MOVE tells FORTH to enter 
the motor VOCABULARY, and calls 
(MOTOR] to initialize the motor con- 
trol port. If commands arc being 
entered directly from the keyboard, 
these actions are taken immediately. If 



MOVE is entered within a colon defini- 
tion, these actions are compiled into 
the new definition, to be performed 
when [hat definition is invoked. 

Multiple Motors 

This implementation only drives 
one motor. Of course, some users 
might want to control several motors. 
To control several motor channels, we 
may assign !D numbers to each device. 
For example, we might write 

; CARRIAGE ; 
: TRACTOR 1 ; 

to assign the ID numbers and 1 to the 
carriage and the tractor motors, 
respectively. 

ID codes are specified immediately 
after MOVE; 

MOVE TRACTOR 1 INCH BACK . 

The words FORWARD, BACK, and 
STEPS would be rewritten to toggle dif- 
ferent bits of different ports, depending 
on the device code specified. Of course, 
the actual addresses and bits would 
vary from installation to installation. 

Bugs 

This FORTH package handles 
motor control in a simple and pleasing 
way. The syntax is attractive, easily- 
learned and unintimidating. In fact, 
this sort of control language, resem- 
bling stylized English and controlling a 
big, easily -perceived object, makes a 
good introduction to programming for 
younger children. 

The design and implementation are 
not, however, without flaws. Since the 



Listing 4 




HE>; 


HEX 


■; "10 STEPS" MOVES MOTOR 10 STEPS ) 


FORWRRD 




N-PORT C« 


: STEPS 


' FWri/REV OR 


DO 


M-PORT C! 


M-PORT C@ DUP 


STEPS [COMPILE] FORTH .. 


<:3TEP> FF XCiR fiNE 




M-PORT C C PULSE LOU .1 


BRCK 


<:STEP> OR 


M-PORT ce 


M-PORT C! t PULSE HIGH .■ 


FWU.'REV 0FF XOR AND 


?TERMimL (" STOP KEV PRESSED? 


■■1-PCRT C< 


1 IF 23 EEEP RBORT ENDIF 


STEPS [COHPILE] FORTH : 


MOTOR-RhTE e ' DELflV LOOP > 




a HO LOOP 


— -J 


LOOP ; 




— > 




Screen 83 — Motor ■ Steps 


Screen 84: Forward, Back 



-ORTH IiEFIHITIOHS 

MOVE [COMPILE] MOTOR 
SThTE e ( COMPILING ^ > 
IF 

MOTOR COMPILE ■;"MOTOR:> 
ELSE 

MOTOR ':motor> 

ENDIF .; 

IClMEDIflTE 



DECIMFIL ;S 



Listing 5: Screen 85 — Move 
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motor step size is fixed, a request for 
motion of exactly "1 inch" or "87 
degrees" can't always be obeyed exactly. 
For example, since our motor rotates 
1.5 degrees per step, a request for 

2 DECS 

actually causes a motion of only 1.5 
degrees. In this implementation, dis- 
tances are always truncated. Proper 
rounding might be preferable, but has 
been omitted because it would obscure 
the simplicity of the unit conversion 
commands. 

Requests for negative distances are 
not handled correctly. Ideally, FOR- 
WARD should refer requests for 
negative distances to BACK, and vice 
versa. But to keep things simple, we 
simply forbid negative displacements. 

There are presently no provisions 
for confirming that requested motion is 
actually occurring, or for detecting 
spurious movements. Controls could 
be implemented in STEPS should the 
application warrant. Attempts to achieve 
precise position control in any system 
without some form of feedback to the 
computer are likely to he fraught with 
fmstration and peril, but again we 
wanted to present a simple, basic design. 



Parts and Information 



The SAA1027 stepper motor control chip is manufactured by the 
Cheshire division of Airpax, and by Signetics. SJJigle tmit prices now run 
about $15, but substantial price breaks are offered for larger orders. 



The Airpax stepper motor catalog lists a large line of inexpensive step- 
per motors. It also includes an excellent and detailed discussion of step- 
per motor design and application methods, including a useful compen- 
dium of load and torque relationships for common configurations. 



Haydon Switch and Instmments, Inc. (Waterbury, CT) makes a series 
of small and very inexpensive steppers. These small, cheap motors have 
become quite popular in our labs. 



Finally, the control language is, for 
some, too verbose. A more succinct 
form for experienced users would be 
welcome, especially if it preserved the 
rather pleasant, natural tone of the ver- 
sion presented here. 



Mark Bemsiein is a graduate student in 
chemistry at Harvard Univcrsily. He uses 
ml c roc om put CIS throughout his 
experiments, controlling and gathering 
data from powerful picosecond laser 
systems. 
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utililvcity 

SI of our molt- asked -for Appic UtUities 



4BK Applewl flOw 



by Bcft Kcrs«v 

For WUPfcq Apple— Oinffl rT>o«-Mlie<Hflr^pleU[iHliesi>ncxiff big 
dQk--Uit FennilWF niflk<s pcopeily spoceil S. irX^CrtTM MViqi ■^h«i 
pdnlf r pflse bcEolis EoCh ptf-grsm itaKmaH Js on o Jiew Im; with ff- 
lheri'l 4 1«0» ca"ed our, a ^cdT de-Dujgei' CUtf^ In'ny numbcp 
o1 nkinini A om Mge-^v]a^ to C»r i>r ptinlrr AuTomfltkat)' poH 
tie flun-Numbej * 4iia(-u1t<] Pat< Iri faut ppagrom^ filiT anr 
(Onpntncl Iniiilbl* ir> youi klDr>3^. Act«i inaytm knr^ in mrniaiy 
TfM gaTHgfl PfipM A "*cgo1" nffr-flOOn; Cn^ify Mn & Vott irrTo on 
i]i^. Run any A^i>leiall 'He whifr anornrj itoy^jnla^t, Mcve linn 
-rtlJiinyDU' ppD^fl^is. lfrniJi«bftHO 05*35, 5flv*invFrw, IhATSJHlEii 
On:* mt ndint^, tajiven Otf. to Jiex A OOiflry, V IHT to fP, Apperxl 
ptaSram^, duiTit me Kxr ^lef n 1o M*t prlnTer . M^re rco tl 



. APPLE TIP BOOK NUMBER THREEl 

- ■ i- DOSTrmkery" ■■Cop, 






• uiiiHy Ci*v on ADc^^on Di-a 

i/ 40^pflge Besgk Bro^ Apple Tip Boo« = 3 

^ Apple PEtK5, POKE5A PQlNlEtfi Cl^ait 



alpha plot 

Hl-ft<s Apple Graphk^/Tcxt Utility 

bv Ban K<FHy 1 JKk Cflukfy 4Qh « QUIRED 

HJ-RES DRAWING: Crsaie m ffe piciu-cji charts 
■p(Kr*4«b4 U /DU' pregraim. KCyKvjJ m Paddle ci>r>1ral. OQ- 

IKHifll JlOfflW" 'i'MfJti (^ee fcie^ befote yDii ar**Vj AnycQia' rruior 
HEVEVSE (i>ppi»il? O' bacftigroLindl, ChcIce, Qnic^ S. EAplC^, rjil&J w 
nol BorhisftogfaniE loo-KHUHCH" Etorei hoei ir» M IPX B 1/3 
riornul diilL Epacz SHIFTH Uflntf CI any pomon oF Ihr Nice Kreefi 
AH* iuOCi'TiP'We ™-'ei rfims?^ and cor-^il Kfc-fi*E Iq Lo-Pe* A back 
Tor faufnuUng aVuXr^fM-' 

HI-RES TEXT: BcauOful utHXi a lower caie wiB^ Dewrpniitrii 

color 01 r<v<rw pDatiarijt4e ar>yw|«re ^^OE reHTKled by HubE A 
VLEbE! ProrrlVO^dl InaKing tVOPOPTIOK^L SPACIHOl Aa^iiWile 
Ty&eSize, LcflclingHnicEpin:ifigja>:e(riing(len?rspBC»ngJ Multi- 
4lCH:?ondi typing, up, down, even Daf V->vdi' 



PLUS . . . APPLE TIP BOOK NUMBER fOUR 
■ I) PAOE^ Ql lipE Tar Taking ir»€ moEl o< youf Appie^E ad _ 
gropiiiCE tac-at-tozE Alpha mWrijcWinE plus ^hrtOf table ap^r 
lining i ctfor ir^lii and T, 




*19» 



^ Alpha Plot on Aopte^oft CM^h 

^ dO'pflSe Beagle Broi AjSpk Tpq Bookfl 4 

^/ Apple PtEKS, POttS A POINTERS Chart 




i^ple Utility Disks! 

With Free PEEKS & POKES Wall Chart! 



3 



MICRO SOFTWARE 
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4315 Sierra ^sta 
San Diego, 
CA 911103 

714-296-6400 



WITH EACH ORDER, VOU WILL RECEIVE . . . 

D OOiBoH, unilry Cny or AJpnj Plol onAppleraH DieH 
D A 40 page App^c Tip Evsk ■Cd'iri eri^^fl^^■ dirTfrenll 
n An :ui7 AppfPiEk&H PODE&a poiMTtBS i^nan 



do/ bo// 

DISK COMMAND EDITOR 

by hfl KarKy > JkK Cauldy 

Aclamc imftryDU «* EHIOV' MrtAnlt Cfjnmandi: " CaUk>3" can 
be 'Wy eft ii»e-»rol*tt your piogr4nn; UnauUiotized copy 01- 
lemph piOdul* ■■HQlCopyable^^ mewoge 1 Key ftog'Sm Sd^cUon 
hoin cWalog (r-trcn'eh' nsnOyiJ 4:0^03 CuEromiwi-Cnartge Dfik 
VWimie meisage to youj tjClc, OnW C SCflr Hie codeE, Cdatog by Tk 
lyp«, cK Ptw^rlle E/For MPEEflgeE- SyHha<ri'or^^ ■:an be "Odpe*" 
or anytfwig yOu <^a<^' 

AB or Ooi Bou'i etiin^ fiiurc» may b4 appended to your piO- 
granii, ■alh^lanv^TK utJng your dlilii on any Appmbooledof 
rwl] wll be foriK«ll]ii9 DC^ 11( way you rJitlgnciJ hi 



IPIUS . . . APPLE TIP BOOK NUMBER TWO! 

■ II- ^I'mO'e [lOS m'O'iiialiQn Poking Around m \iO% rs^Jl 
. Jnli^laWc/ Two-ideJ QiW fipi," ' CarC oF Hju' P"n 
' Pfif Un? * PoWng," "^t<^l S." elc 



mtvt 

$24. 



^ Ddi lai) on Applesoft DiEk 

^ 40 page BEflgie Qip^ Apprie Tip Bool- =V 

•* ADpie PtEKS. POKES* POifllEPS Cfidrt 



jUlhiii-iiJM 3f K UtOMiKa 





_ BONUTWTTH EACH DISK! 

Vy.'k POKE your Apple aJI nighi long with (his handy nxi7 tefer- 

;--^ ence poller! The most useable PEEKS, POKES, POIMTEP5 & 

'--'^^ CAllS 5C"Ounged up fFom Evei-y iOv'Ct Imaginable! A greal 

'>f~2; companion to ouf on^iFial Apple Co mmand Chart. ^ _ 

MasterCard, VISA or ^^ 357 

.Nationwide; 1?° f^t 1 500 ext. S27 

I California: ?;j 854.JJ22 ext,827 

Alaska/Hawaii: 800/«*^.t^f^„«;vi;i:i!j 



Or order by mail tui? mn co^Don t 



rfoaralc ^««lft 



I RUSH I The disks checked below 

I Plus The Tip Book and PEEKS & POKES Chart! 

I n gTiLHYciTV D ALPHA piOT n dosboss 

I !1311 (1.11 ll!550> 

I (Prxc^ ir>clii(fF RiBr Clu^ ShippitS, Cbv r<ild«fib and fi% > 

I Speory 

I NAMe«= D 3.2 • D 3.3 

I AODIS^ . . 

1 ClTYt= . . 



_ilp=_ 



. 4^ louR^- •, j»i 

flpFli te*tfHN(^-L --^' 1 
OK ORPER BY KICKE 

Aik ■ round A&OI'I ^HHHicailc Hroi Software. 

Our programs ace Di'^CTical, (riendly & user-onenleO, ai^d 
aLway^ tome wrlh on amazing omouni o( docurrentation & 
lincv Apprt jnformabon IT your dealer doein't have our sluff, 
get on hi? case about Ft, or order directly 'rorp ui We ihip all 
disks S boots WITHIM 43 HOURS. 




VISA 



VISA/MASTIBCARCi 
Iricludc Account No- 
t. EnplrAdon Date. 

U.S. clieck, money order or Visa/MC Numbers 
to BEAGLE BROS, Dept. T 
4315 Sierra Vitta, 
San Die^o, CA 93103 
Telephone (714) 296-6400 ^^ 

p*ase add 14.50 for shipping outside US or Canada. 
COD orders, add 13. California residents, add 6% 
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er-OVCaA J^ 



by Bob Nacon 



MACHINE LANGUAGE SPEED 
WHERE IT COUNTS... 

IN YOUR PROGRAM! 



For the first time, Amper-Magie makes it easy tar people who don't know 
machine language to use its power! Notv you can attach slick, finished machine 
language routines to your Applesoft programs in seconds! And interface them 
by name, not by address! 

You simply give each routine a name of your choice, perform the append pro- 
cedure once at about 15 seconds per routine, and the machine language becomes a 
permanent part of your BASIC program. (Of course, you can remove it if you want to.) 

Up to 255 relocatable machine language routines can be attached lo a BASIC 
program and then called by name. We supply some 20 routines on this disk. More 
can be entered from magazines. And more library disks are In the works. 

These routines and more can be attached and accessed easily. For example, 
to allow the typing of commas and colons in a response (not normally allowed In 
Applesoft), you just attacti the Input Anything routine and put this line in your program: 

XXX PRINT "PLEASEENTERTHEDATE.": : & INPUT,DATE$ 

&MAGIC makes it Easy to be Fast & Flexible! 

PRICE: $75 

For reliability, Aurora Systems uses MAXELL diskettes only. 

^-Magic and Arnper-^agic are rrademarks of Aurora Systems. Inc. 
ApplesfjITisalrademarkol AppleOompuler, Inc. 



Some routines on this disk are: 

Binary file info 

Delete array 

Disassemble memory 

Dump variables 

Find substring 

Get 2-byte values 

Gosub 10 variable 

Goto to variable 

Hex memorydump 

Input anything 

Move memory 

Multiple poke decimal 

Multiple poke hex 

Print w/o word break 

Restore special data 

Speed up Applesoft 

Speed restore 

Store 2-byte values 

Swap variables 



aurora systems, inc. 

2040 E. Washington Ave. 

Madison, Wl 53704 

608 - 249 - 5875 




k Lilbriry 

e Manaaement System ^^) 



The Software Management System 



Disk Library is an elegont, user-onented system for creating and maintaining a thorough, cross-referenced Index of all 
your disk-bosed programs ond data files. It provides for Automatic entry into your Librory file of the full catalog of ony Apple* 
diskette. Disks formotted under other operating systems (such os Pascal and CP/M'] ore easily entered from the keyboard. 
Written entirely in machine code, Disk Library's operotion is both smooth and swift. 



EASY TO OPERATE: 



Menu-driven • User-deli noble prompt defaults 

Single keyslroke operaiion • full featured Editing 

Super fast Sort* ( 1 200 (Iem5 in 4 sec, !] 

Workswilhalldiskaaeuledunder D0S3,I, 3,2 and 3 3 

User delinobie Program Types (e g,, Bo^ine^s, Game, Utility) qI up lo 1 5 

characters each can be assigned ta each piogrom enlry with single keystroke 

or via block actions. 

On-screen and printed Summariei, by File Type (inter, Applesoft, Binary, 

Text) and by Program Type 

Block Actlani (globol editing /deleting) 

Instoni Searcho*. . , find any item in 1/3 sec, 

Appond new files lo enisling ones, in memory or on disk 

Unjquo Feature: User con redefine the Disk Volume f^lumber disployed by 

the DOSCcitolog Command 

Assign o unique Identifier and Title lo eoch disk in your library 

Printed Reporti ore lormotled ior easy reodibility 



EASY TO ORDER: 



Use your Visa or MasterCord 
ANYDAY, ANYTIME 



TOLL FREE: 1-800-331-1750 (Foordesoniy) 

Ask lor operotoi 948, Dept. 400 
(InOkla.): 1-800-722-3600 ope.ato'f^a 



Orwndchaikor money order ID 
flondn f eiid*nli add iiWj sale^ 'a^ 



■MODinAR 
■MEDIA 

nni^Ci t'30 OC ISpenailnlrodintoryoHEr 

WHAT VOU NEED; 

■ A ISK Apple II (n II -I- v.,11, D0S3 3 

■ A deiii? logel organi/eni 



$49.95 



(Regular Pr»ce} 



EASY TO LEARN: 



The 75 page, proJeasionally prepared User's Guide i5 onenied lo Ihe needs 

□i beginners andexperls 

Inds.; Tuloriols, Re^erenceond ApplicationsSections, oi^d Inde" 




ll060ParadelaSi , Miomi, FL 33156 i305) 661 -7310 
Developers/ Publishers ot Innovative Software 



* AppI? Apple M and AppI? M 
CP'^^ la Q Fegiirer^Tl nudcn 



- aisiegiiie'ta'icuiefnark^o\ Apple Corn pule i, ht 
irk u' Digi'al RtrrfQuh, irn 
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SENSIBLE SOFTWARE 

The utility People 

Making Life With the Apple ii a Bit Easier 



DISK RECOVERY 
THE SCANNER" 

48K + ,DISkll 

Apple II /Apple 11-*- 

$30.00 

Are you plagued with disk I/O errors' 

Does the integrity and safety of your 
data concern you? 

This program is a must for all 
Disk II owners!! 



Just as "ApDle Pascal" provides a 'BAD BLOCK SCAN' , disk RECOVEPv will do a 
comoiete scan of your diskettes recording surfaces Damaged areas will be 
■marked' as used in trie disk directory so ciiat no attempts will De made to 
■'WRITE' to a bad sector Tfie VIOC is completely rebuilt to accurately reflect 
BAD. USED, and FREE SECTORS, further insunng the tntegnty of the diskette A 
comolete report is generated advising Che user of all corrections BEFORE tne GO- 
ject disk IS altered A resulting ' DISK MAP is oresented for your review Flexibili- 
ty of the program allows evaluation of NEWLV INITIALIZED DISKETTES as well as 

DISKETTES THAT ALREADY CONTAIN PROGRAMS AND/OR DATA' The SPEED of 
analysis IS unsurpassed -only 18 seconds for a 16 sector diskette' DISK RECOVEfiV 
IS supplied in the revolutionary OUICKLOADER format which allows easy recon- 
figuring to make it fully comoatible with 13 sector and 16 sector diskettes as 
well as your SUPER-TEXT data diskettes' treat youRSELF to PEACE OF MiND 
KNOWING that YOUR PROGRAMS AND DATA ARE SECURE WITH DISK RECOVERY 



SUPER DISK COPY III $30.00 

48K & DISK II required, APPLE II or APPLE II PLUS 

Practically a ■mini-DOS' in itself, SUPER DISK COPY III has 
become the standard for APPLE disk utilities. SDC is a menu- 
driven program that allows manipulation of all types of files 
under DOS 3.1, 3.2, and 5.5. SDC is the only disk utility 
available for the APPLE that combines tfiese features: 1) 
COPY single files (integer, Applesoft, Binary, or Text), 2) COPY 
DOS, 5) COPY entire disk, 41 UNDELETE deleted files, 5) Oo- 
tionai 'INIT" of copy disk, 6) REPLACE illegal characters in 
filenames, 71 FIX f ilesizes, 81 Use of DOS and directory sectors 
forup to 13 K additional storage, 9) ALPHABETIZE filenames 
in diskette catalog, 10) LOCK or UNLOCK files, ill PLOT of disk 
usage, and -121 Optional rearrangement of files so that they 
occupy contiguous sectors for improved access times, SDC III 
now supports Che APPLE wildcard character ■ = " in file 
specifications. SDC 111 makes the conversion to DOS 5.5 less 
painful (than MUFFIN) and also allows files to be transferred 
back to DOS 3.2 since both 15 and 16 sectored disks can be 
accessed at the same time. 



MULTI-DISK CATALOG 111 $25.00 

48K and DISK II drive required. APPLE II or 
APPLE II PLUS 

MDC IS a very fast, machine-language database program 
designed specifically for keeping track of the contents of 
your APPLE diskette library, WDC III requires only seconds to 
read FILENAMES, FILETYPES, FILESIZES, number of free sec- 
tors remaining on diskette, and actual volume number from 
each of your diskettes Both sides of a diskette can be loaded 
and assigned to the same DISK iD#. MDC ill supports use of a 
two-character CLASSIFICATION field that can be used to 
group games, utilities, and other types of related files 
together. MDC ill supports a fast Shell-Metzner sort on any of 
the five database fields A unique 'LIST MASK" provides a 
powerful search capability for interrogating the database 
for specific information. A ■FLIP DOS ' command allows MDC 
III to read directories from DOS 51, 5.2, and 5.5 disks and to 
store the resulting database on either a 13 or 16 sectored 
disk. 




SENSIBLE SOFTWARE 

6619 Perham Drive Dept MO 

West Bloomfield, Michigan 48055 

515-599-8877 

For a complete catalog, send 

$1.00, refundable with your first purchase. 

Visa and MasterCard welcome. 

Please add SI, 25 postage and handling per diskette. 

APPLE is a regisleied trademark of APPLE Computer Company 
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APPLE • ALTOS • ATARI • MAXELL • DYSAN • EPSON - CCS • SHARP ■ CASIO • HP • VERBATIM • MEMOREX • SOROC * COBVUS ■ ADDS 



[< SHARP44K Z80 FULL KBDVX-UDO CAU 



i$ 



\ > 



/VIICRO 

BUSINESS WORLD INC. 
Information Line (213) 996-2252 
TOLL FREE MAIL ORDER LINES 

(80Q) 423-5336 ouiside Cam. 



COMPUTERS 

fl^nppki DOfnputor 




Lilt 



Out 
Price 



SAVE 



i 



Appla il'IGK 
Apple II 3ZH 
Apple M-4aK 
Apple II^AK 
Apple III i:gK 



I1JM.M J999.m S3 3 1.00 

1530.00 SPECtAL | 

17Z5.00 CALL ! 

3015.00 299700 Sia.OD 



ALTOS BCS 8000-15 ■swoo *4»M 1*40.00 



SEC PC 8001 



ATARI PERSONAL 
COMPUTERS 

400 10K Bvtesor Dam 
eQOI6):Bvlasoinam 

dlO program Becorder 

eio ank orivB 

a25 Pfpnlei {SD co\- 

Genlronic 737? 
SiO Printer (SO tol 

impQcn 
830 Acouvic Modem 
aSO lotefEoce Module 
Aforl Viiicolc 
A(QM400-16« 



Lilt 

65600 

S10M0O 

90.00 

tOO.DD 

«9« 

J60CO 
500 OO 
52000 
200 00 
506.00 



Our 
PHee 

337.4S 
739 00 
77.00 
457 .00 






SAVE 

U7«S 
Ul.OO 

11.00 
14).D0 



719.00 UO.DO 



3S3D0 
ISS.OO 
192 00 
I MOO 
327 00 



9T.O0 
4B.0C 

w.oo 

301.00 



L^ei 



HEWLeTT 

PACK A no 

HP-125 MicrocomculSJ 

HP85 Mlcrocomouler 
HP-Hi Mlcrocorrtputar 
1611 f ^p-Merro'v 

Module 
G(QOhiCiPtolla721S 
P«'5crLalllv Mod 

IOI7226 
2631 B \fT\pacno"raatt 

hvydiy 
Oplion[^lor2^1B 
B Orivei lo clioose liom 

S29oaS 

9a9SAS" DudI Drive 
GiaphioiIoblePOIHA 
HPJ1 CVrJHw?2 

byles meff] 
HPJlOCalculotoi 
Cord ReodHi loi 

aicv.'G 

Pnnler rw OICWC 
OpIbCOl WQna lor 

41 CVi'C 
Quad DaJn equals 

4 Mem Mad& 
Memoiy Mooules lor 

41C 
Hp.97 ProgioJuble 

Pnnler 
HP.fi7 ProgramTile 

Colcukiior 
HP34CPiO0roinDle 

Screr^liNo 
HPSBCPfrMiomble 

Bus R.E 
HP32EAO. SCienlilir; 
HP-3?E Quatnes± Mgml 
we oafy a lor^ invenlr^rv r^TLiDiruiia^r accessories and 
supplies 



Llll 

3/soao 

32SO.00 
5250.00 

295.00 
245000 



3950.00 
150 00 

IXO.OO 
6550.00 
1050.00 

325.00 
250 00 

215.0C 
3S5 00 



Our 
Plica 



2475.00 
1777 00 



255 00 
2075.00 



325000 

125.00 

1125 00 
5500.00 
1679.00 

250.00 
165.00 

162.00 
289.00 



SAVE 

7t0.00 

TTS.OO 
171.00 

10.00 
175.00 



TM.DO 
15.00 

195.00 
I150O0 

xrtM 

75.00 
«5.D0 

51.00 
101.00 



125.CC 


97.00 


11.00 


95 00 


B1.00 


11.00 




25.00 


t 


76000 


595.00 


175.00 


376.00 


295.00 


■0.00 


150 00 


117.00 


13.00 


160.00 
66.0C 

7600 


117,00 

la.oo 

57.00 


U.OO 
7.00 
11.00 



PRINTERS 



EPSON List 

MX 80 FT 745 00 

MX BO IMPACT M5 00 

MX '0 IMPACT 500.00 

MX 100 MS 00 

APPLE SILENTYPE 646.00 

«N*DEX 4U1 1 650.00 

NEC 

6510 319500 

5515 320500 

3510 2496 00 

35 '5 2546 00 
OKIOATA 

MICROLINE ao 545 OO 

MICiroilME 82 S490D 

MICIKltiNE S3 106DOO 
PAHR TIOER 

445G wilh eraO"i=s 796.00 

460G v.ilh Graphics 1.394 00 

6iOG New lull si!e 1,696 00 

DIABLO (LEnER QUALITV) 

030 R102 bKlliecliofial 

Irooloil 2.006 00 
1640K10? kevlxurd 

Iraclca 4,000 00 

630 fiO llecelvsOnn J,710 00 
165a( 136 keyboard 

Iraclars 4,000,00 



Our Price 
■S4M0 
460))0 
390.00 
766.00 
299.00 
1299 00 

2M5 0a 
2646.0Q 
1796 00 
1849.00 



SAVE 

moo 
iH.aa 

110X10 

aiooo 

316.00 
151.00 

750.00 
700 JM 
700.00 
«90.00 

ISO.OD 
100.00 

HI .00 



SPECIAL OF THE MONTH 



APPLK II PLUS 
48K W/16K 
EXPAiNSlON BOARD 



=64K 



Our price 
$119900 




List price S17B0. 00 
Our price S1199.00 

Save $581.00 



APPLE II STUDENT_= 
SYSTEM 



> 



Appir [1 Plui Stilrni-IBK RAM 
Diik ] I Floppy Diib & 
Intcrlaci^ (DOS 13} 
If Cm. Phi. Viifco MpniloT 



I L^i i:i"«n*' 



V 





MONITORS 



List 

NEC Sr" Phs 12- 5255 00 

BMCGrsenPtis 12" 275.00 

Zenilh 12" 15900 

SANYO MONITORS 

High OHDhiHHi, Nsimtwr 1 lellir 



Our 

Price 

235.99 

229.00 
119 00 



SAVE 

541.00 
16.00 
10.00 



Our 
List Price SAVt 



13" Color |ne*) 

high gudlilv SS.60 00 
12" Green Ftrijsphiojous 360.00 

12" Bnok R White 340 00 

IS'eiack SiWriite 370.00 

9" Bkick i White 

Ins Best Sailer' 236 OO 



3ae.oo 

240 00 
217.00 
335.00 



145.00 



S142.00 
110.00 
11]«D 
115.00 



M.OO 



s 



DISKETTES 

SOl-l) IN BOXES OK 10 

[Mm Purchase) 

my siooiifibe 

Follou-inE Diskpltes 
DVSAN 

1041 6" soft SECTOR 
1041D =■ 061 

DEN SOf T SEC 
3740 1 8- SOfTSECTOP 
3740.'1D 8" OBL 

DEN .SOU SECTOR 

MAXELL 

MD 1 5" SO" SEC. 

lOOlOSl DEN 
MO-2 = ■ SOFT 
SECIOPiDBL 5IOE.0BI 

OEN 
fD-1 a" SOU SEC DBl 

OEN 
fD-2a' SCMISEC DBl 

SIDE.'DSL DEN 




Llll 

PBICi 

6 00 

6 40 

7 36 

10,76 



500 



700 
SEO 



Our 
Price SAVE 

PER Dili ETTI 

3 99 S 2,01 



360 



4.60 
4 75 



4J10 

190 

1.60 
596 



i,ao 

2.10 



1.00 

2.1Q 
2.00 



TERMINALS 



TELEVIDEO 

910 
912C 

920C 

05IX: 



list 

6*9 00 

9SO0O 

W6 00 

1.195 00 



Our 
Price 
59900 
499.00 
795 00 
949.00 



SAVE 

100.00 
IBIMI 
MOJN 
UtOO 



DRIVES 



coavut 

5 MBVTES 
10 MBVIBS 

30 mbvte; 



3,750 00 
6,35000 
6.460,00 



3.060 00 700.00 
4.449,00 ni.OO 
6.450 00 1.11I.O0 




11 (\(,\ 
UK illl\ 

i/;m i( ni>\ 



T 

SOFTWARE 




¥» 




FOR APPLE II 




\ — Iff 








Our 








List 


Price 


SAVE 




Apnie Fonran % 


200 00 


147,00 t 


i}«« 




DOS 3 3 (IfiSscfor) 


00 00 


46,00 


15.00 




^PDte PILOT (lOSeclor) 


160 00 


119 00 


lino 






















(1ft Saclor] 


200 00 


159.00 


11.00 




ApplQ Pasca^ 


49500 


399,00 


M.00 




BPI General lecJgei 










Sysrem 


395 00 


319.00 


T4.00 




BPI invenlorv Package 


395.00 


31900 


71.00 




Vi^idei 


20000 


159.00 


IIJW 




Uisicaic 


200 00 


159 00 


41«0 




De^krop Plan \\ 


20000 


159.00 


41.00 




Microiab DolabaSe 










Syslem 


150 00 


119 00 


11.00 




SroTi^wciie QB Master 


229 00 


1B9 00 


10 JU 




Muss SupaFl9:il II 


16000 


119 00 


11 DO 




Sofiape Wogjc Wmaow 


99 00 


72.00 


IT.00 




TEXAS INSTRUMENTS \ 


Tl O&yflA Consols ^Jew 










ImDrovetJ 


950 00 


385 95 


OMXIt 




10" Color ktonplor HlgPi 










l>e solution 


37495 


317 95 


S7iU 




32K MsmOFv McO^le 


399 96 


312 95 


■7JM 




Speocri Syniheilzsr 


149 95 


127 95 


KIM 




Disk Memoiy Dive 


49«05 


39095 


109.00 




R* Modukjloi 


4*96 


12 50 


7.11 




iHieoi^O'* Coupler 










IModerr) 


224 95 


15595 


JO.OO 




Pnntar (5^lia 3I019) 


399 96 


315 96 


01.00 












MODEMS 










NOVATDtJ CAT MODtM 


189 05 


110 00 


fin 




NOVATlOt^ DCAT 


199 00 


16000 


19.00 




NOVATOr^ APPLE CAT 


349 00 


310 00 


».00 




HAVf S MICDOMODEM 


379 00 


296.00 


•1.00 




HAVES SI.1AmMODEM 


279 00 


239 00 


U.OO 














CALCULATORS 








CA$IO 










HD-IO 


49 96 


39,00 


I0,«( 




HIi 13 


64 96 


42.00 


Il.OS 




FR.100 


79 95 


59 00 


ra.fi 




EP,1210 


129 96 


99.00 


M.«5 




PO,20 


29 96 


23 00 


6.95 




LC,7!5 


12 95 


10.00 


2.95 




LC,3165 


12 96 


10.00 


1.45 




FX«B Seen use 


2996 


23.00 


6.95 




F>;,81 Scierllido 


19 95 


17.00 


1.95 




FX,36CQP ScHtltilc 


39 96 


29 96 


10.00 




FX«02P "Computer 










Talk ■ 6S t^emoiies Pro 










g ramming Upper * 
Lower Case Dol r^alrii 










129 96 


99 00 


M.99 




F>,?02P Solves Problems 










wifh Alpna,Ni4[ierlc 










Claiirv. uses Eiosic 










LoneifOO^ 


199 96 


159 00 


10,99 










' 




TELE. ANSW. DEVICES 




PHONE M«n 










9O0 


119 95 


56 00 


M.«t 




905Remo'e 


199 95 


144 00 


S5.95 




910 


15905 


11500 


41.95 




920 


199 95 


144.00 


55,95 




926 RsTOle 


239 95 


173 00 


»6.95 




930 Iferrtole 


299 05 


216.00 


U.>5 




950 Romole 


339 95 


245 00 


«4.>5 




9O0 UBmols 


399 95 


285 00 


111.95 















/^ICBO BUSINESS W(5HLD w.J';;,;"!,! l/v, 

ry.?*^"^ . ..J, . WAREHOUSE 

ll.'! ' -' I J ' :""a"'i 18720 Oh narO. •! OH Tarjana. CA 91356 

OUTSIDE CA CALL TOLL FBEE 1 (8001 123.5886 IN C A 12131 9962252 



Cgrllllea Cliecli at H O. 
Bank Wire TTan«far 



CflbhrCrBdil CardTAtlew 2 
we?ks cl?ar^r>[:e lur thei^ksl 



^Tr'fls'fl ~gTiia TigFin "cgiTflE'rTyp'efl rToTi icaTi 



su De rcene^all pr< 



MAXELL • DVSAN • EPSON ■ CCS • SHARP • CASIO • HP • VERBATIM • MEMOREX • SOROC • COR VUS ' PERSONA L SO FTWAR E -CCS 
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Life in FORTH and BASIC 



This version of LIFE, written In 
FORTH, also includes a BASIC 
program written to use the same 
logic. The reader can compare 
the two languages and learn 
something about FORTH by 
looking at the comparable 
BASIC code. 



Nicholas J, Vrtis 
5863 Pinetree S.E, 
Kentwood, fvlichjgan 49508 



I have had FORTH running on my SYM 
for a couple of months, but I hadn't 
done much with it. I decided I needed a 
simple project to test my newly ac- 
quired FORTH skills. John Conway's 
Game of Life seemed like a good can- 
didate, since it was one of the first 
assembler programs I wrote when I got 
my SYM. 

Before discussing the programs, I 
would like to state that I am not a 
FORTH expert. 1 do like the language, 
but I do most of my programming in 
assembler for a number of reasons. One 
of the main reasons is that even my 
stripped down version of FORTH takes 
6K and on an 8K system thai doesn't 
leave much room. I do have BASIC on 
my SYM, but if I had to choose to have 
only one additional language on my 
machine besides assembler, it would be 
FORTH. So much for a disclaimer. 

Most articles don't specify boun- 
dary conditions. If you have a 16-row 
by 32-column 'universe,' what is the 
status of the cell adjacent to column 32 
(i.e. column 331? ' chose to make a 
donut of my universe. That is, the top 



and bottom rows are logically adjacent, 
and the left and right columns are also 
logically adjacent. This involves a few 
extra checks when counting neighbors, 
but keeps 'life forms' from falling off 
the end of the universe. 



Most of this description will be on 
the workings of the FORTH version of 
the program. However, the BASIC ver- 
sion is included for comparison, since 
it is logically the same program, and 
most people are familiar with BASIC, I 
will include a short paragraph at the 
end to comment on the differences. 



If you look at the listing, you can 
see that the word LIFE is not defined 
until two-thirds of the way through the 
listing. This is because FORTH 
requires that a word be previously de- 
fined before it can be referenced. The 
first two-thirds of the program define 
all the words to be used, so that by the 
time we get around to programming 
LIFE, all we are doing is putting 
together routines that FORTH already 
knows about. 



Theoretically, the routines are also 
tested. In fact, FORTH encourages this 
two ways. The first way makes it very 
easy to test out a new subroutine, 
FORTH has the equivalent of BASIC'S 
direct mode, plus a little. With 
FORTH, you can define a new piece of 
code, and still have values in variables 
and on the stack remain unchanged. 
Additionally, since the FORTH stack is 
the major input and output to a word, it 
is easy to force values onto the stack, 
use the word, and print the values left 
on the stack. 



FORTH makes it difficult to change 
a word, therefore you are encouraged to 
test new words. In order to change a 



word and not waste memory, you have 
to "forget" the old version, and then 
define the new. The catch is that when 
you forget a word, you also forget every- 
thing following it! So, in addition to re- 
defining the word in error, you have to 
re-define all the others, I guess that 
would be tolerable if there weren't too 
many, and you had a disk system, but 
with a cassette-based system like I have, 
you wouldn't want to do that often. 



The Program 

The first few lines define basic 
parameters of the universe, #/L defines 
the number of cells per line, and #R 
defines the number of rows, R*C [rows 
times columns] defines the total num- 
ber of cells in the universe. The next 
two lines reserve space for the uni- 
verse, FORTH docs not have a DIM 
word, so I defined a variable called 
GEN-0 [while reserving two bytes for 
it), and then told FORTH to ALLOT 
two bytes less than the size of the 
universe immediately following the 
space for the GEN-0 value. This means 
that GEN-0 will return the address of 
an "array" the size of the universe, 

FORTH syntax requires that a 
variable be defined with an initial 
value, which is what the in front of 
the VARIABLE GEN-0 does. The 
variable IDX is defined to hold the cur- 
rent pointer address into GEN-0 during 
each generation. 

The word CLEAR initializes the 
universe to zeros [dead cells]. It is a 
simple DO loop, equivalent to the 
BASIC: 

FOR 1=0 TO R'C, GENO{l) = 0: 
NEXT: RETURN 

PRINT is used to print a copy of the 
current universe, using spaces for dead 
cells, and asterisks for living ones. It is 
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a little more complicated than before, 
PRINT is set up with nested DO loops. 
It also shows one of the weak areas of 
FORTH. There is provision for getting 
to the value of the innermost DO loop 
only. The word "I" returns this value, 
but there is no easy way to get at the in- 
dex for the outer loop. It must be stored 
somewhere in the outer loop before 
starting the inner DO. In the case of 
PRINT, I put it on top of the FORTH 
stack. 



SET is used to put a value into a par- 
ticular cell in the universe, FORTH 
does not handle characters on the stack 
easily, so the input value is either a two 
or zero. Note that FORTH does not do 
subscript checking, nor does SET, so it 
is possible to overlay the wrong area. 
BASIC does subscript checking auto- 
matically, so it is possible to put the 
checking in SET. 



Another thing to note about SET is 
the comment on the line starting with 
";" (VRC — ). In FORTH it is impor- 
tant, but difficult, to keep track of the 
stack. I use comments to keep score. 
The bottom (least accessible] is on the 
left, and the top on the right. The 
dashes indicate the use of the word. 
Any values to the right of the dashes in- 
dicate what the stack has after return 
from the word. 



In the case of SET, the top value on 
the stack is the column to store to, 
then comes the row, and finally, the 
value to put there. Also, the comments 
indicate that the three input values are 
removed from the stack, and nothing is 
returned on the stack. When testing a 
new FORTH word, I always make sure 
to print the current stack pointer [with 
SP@ .| before and after the word. 



The next word defined is ADD, Its 
purpose is to check the status of the 
cell defined by the row and column on 
the stack, and add to the count of live 
neighbors if the cell is alive. It has to go 
through a few gyrations to get the right 
values on top of the stack. 



This is one of the problems with 
passing parameters on the stack. The 
third one down is messy to get at, and 
anything deeper than that is tricky. 
You also may have the same problem I 
did with ADD, and may want to get it 
back where it was. 



LIFE is an educational game, invented by John Conway and popularized by 
Martin Gardner in his "Mathematical Games" column in Scientific 
Ameiican. It roughly simulates the processes of reproduction, and death 
from either overcrowding or isolation. However, the game is really more of a 
mathematical curiosity, drivirig thousands of LIFE addicts to distraction. 

It takes a pencil, pad of graph paper, and lots of time, or a computer pro- 
gram (and lots of paper) to determine the results of each generation, MICRO 
has published several microcomputer versions of LIFE, including: 

LIFE for Your PET (MICRO 5) 

LIFE for Your Apple (MICRO 8) 

LIFE for the KIM-1 and an Extended Keyboard Monitor (MICRO 9| 

LIFESAVER (MICRO 11) 

A Better LIFE for Your Apple (MICRO 15] 

LIFE in the Fast Lane (MICRO 16) 

A 60 X 80 LIFE for the PET (MICRO 19) 

One Dimensional LIFE on the AIM 65 (MICRO 33) 

The basic unit of LIFE is a "cell," which lives, dies, and reproduces 
based on its position relative to other cells. At the beginning of the game, a 
pattern of cells is entered and the next generation is calculated using the 
following rules: 

1, A cell with two or three neighbors will survive. 

2, An unoccupied position with exactly three neighbors will generate a 
new cell (reproduction), 

3, Cells with zero or one neighbor die from isolation, and cells with four 
or more neighbors die from overcrowding. 

Using the oscillating pattern called "traffic lights" as an example, we see 
that two new cells are created perpendicular to the original line of cells 
(circles). The end cells die and the center cell remains alive. The corner posi- 
tions have only two neighbors and remain unoccupied. 





M 







® 







K 





• • • 



Terms such as oscillator, glider, and gun are used to describe the proper- 
ties of various patterns. For more information consult one of the articles 
above, or one of the many Scientific Amehcan columns. 



The words BIC (back 1 column), 
FlC (forward 1 column), DIR (down 1 
row), and UlR (up 1 row) are used to 
count the live cells next to the current 
cell of interest. Each routine (1] adjusts 
the appropriate row or column value, 
(21 checks to make sure it is not out of 
range, (3) adjusts it if it is, and |4) calls 
ADD which will increment the neigh- 
bor count if necessary. 

Those are the last of the new words 
needed to get LIFE running. All that re- 
mains is to put them together to get the 
desired results. Actually, as you can 
see, there is still quite a bit of putting 



together left to do. LIFE is a big DO 
loop that is performed for the requested 
number of generations. 

Within the outer generation loop 
are two inner loops, basically the row 
loop, and the column loop. The pro- 
gram walks around the cell of interest 
and counts the living neighbors. What 
follows is an IF statement which will 
delight structured programming buffs, 
(but which I personally dislike). The IF 
statement makes use of the fact that 
FORTH uses the top value on the slack 
to decide whether the statement is true 
or not. 
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LIFE FORTH Listing 








ELK ttl 




BLK ttll 




IS CONSTflHT #.'L 




f- DP 1 ROW > 




le CCfHSTHHI «R 




! VIR t # R C tt R C > 




»R #/L * COHSTflNT 


R*C 


SWAP ( « C R ) 




a VRRIRBLE CiEH-e 




1+ DUP »R = 




R«C. 2 - ALLOT 




IF ■: PAST HIGHEST H 




& VHRIFlBLE IDX 




DROP 




ELK K2 




e 




< CLEfiR THE EiCFlRD 


> 


ENDIF 




: CLEAR 




SWAP i; t» R c ;■ 




R*C OEM-e <- GEM-e 


DO 


ADD ) 




e I c! 




BLK #13 




LOOP .- 




C LIFE - BV: NICK VRTIS > 




BLK #3 




< 1/S.-81 > 




t PRIMr THE BOARD 


/ 


C NUMBER OF ITERATIONS > 




1 PRINT 




< RSSUMED TO eE ON :> 




»R O DO ■; FOR EfiCH 


ROW > 


< TOP OF STOCK ) 




I 




f > 




#.'L B DO < FOR COLUMNS > 


! LIFE 




DUP <■ SAVE 


ROW > 


BLK #13 




<t.--L # I + OEN- 


+ 


DO ■: GENERATION LOOP 1 




SLK #4 




GEN-0 IDX ' 




ce 




#R DO ^ FOR EACH ROW > 




IF < NOT ZERO 


> 


I ■: ROW - > 




. ■■ *•■ 




BLK (tl4 




ELSE 




«/L 00 ■: EACH COL > 




SPACE 




DUP ( SAVE ROW ) 




END IF 








LOOP 




@ 3wnp c # R c > 




DROP 




BIC ( BACK 1 COL 1 




CR 




VIR I UP I ROW > 




LOOP ; 




BLK HIS 




BLK #5 




FlC C FORWARD 1 COL 3 




', SET H CELL > 




FtC < AGAIN J 




: SET t V R C 


> 


DIR ( DOWN 1 ROW > 




SWAP < ROW ON TOP;> 


DIR ( HGBIN > 




*/L * + GEH-0 + 




BIC < BACK 1 COL 




CI } 




EJC < AGAIN > 




BLK W€ 




BLK Ml£ 




< ODD TO LIVING CELL COUNT 1 


DROP DROP ■; # > 




: ROD •; « R C 


« R C ) 


IDX e Cia < # V > 




OVER 




SWAP < V *t > 




• /L * 




3 - DUP < V «-3 tt-3:i 1 


OVER + 




IF < NOT - 3 > 




GEN-e + 




1+ C V #-2 


> 


ca ■: » R c V > 




IF iL NOT = 2 OR 3 


> 


2 Ar-ID 




BLK ttl 7 




IF <. ALIVE y 




< DEATH 


1 


BLK #7 




ELSE 




ROT t R c # ; 




IF (NO CHANGE > 1 


1+ ( HDD TO 


COUNT > 


3 




ROT < C # R ) 




ELSE 




ROT < *t R C J 




O 




ENDIF ; 




SNOIF 




* 




ENDIF 




ELK #S 




ELSE 




■: BACK 1 COLUMN > 




DROP 1+ i: BIRTH 


> 


: BIC t # R C 


# R C > 


ENDIF 




1 - PUP ec 




BLK #1S 




IF ■■ WENT BACK TOO 


FAR ) 


IDK 9 CI ^ NEW value:' 


#/L + ■: #/L-l > 




1 lOX +1 < NEW IHOEXi 


END IF 




LOOP 




ADD : 




DROP ( DROP ROW 


> 


BLK 1*9 




LOOP 




C FORWARD 1 COLUMN 


) 


BLK *19 




I FlC ^ « R C 


tt R C > 


1. MOVE NEW GEN DflCK 


H 


1+ DUP #/L = 




GEN-O R*C + OEN-0 DO 




IF < PAST END OF LINE ) 


I ca < GET BOTH VALUES 


> 


DROP 




1 AND < KEEP NEW ONLV 


1 







IF < ALIVE 


) 


ENDIF 




BLK #20 




ADD : 




2 




BLK (tie 




ELSE 




( DONN 1 ROW > 




< DEAD 


> 


! DIR ■: tt R C 


tt R C ) 


ENDIF 




swHP ■; tt c R :i 




I CI ■; STORE NEW VALUE 


> 


1 ~ DUP 0< 




LOOP 




IF < TOO FAR > 




PRINT < SHOW THIS OEN 


> 


WR + < »tR-l '> 




CR 




ENDIF 




LOOP f 




SWRP < tt R C > 




BLK #21 




HDD J 






> 





LIFE BASIC Listing 


1 not &KSIC LIFE 


2 REM B. VKllS - 1/10/81 


3 QOTD 8010 


10 Bra ADD TO oyjsr 


20 IF G*(B * + C) AND T 


TOO) N = N + W 


30 PEITBN 


100 


BEM BflCK 1 COUM) 


110 C = C - W: IF C < Z THHJ C = Q - W | 


120 


UJiV 20 


200 


REM UP 1 BOW 


210 B = R + W: IF B = P THQI B = Z | 


220 


GOTO 20 


3CX) 


BEM F(»»UBC 1 COUMi 


310 c = c + w: IF c - ram c = z | 


320 


GOTO 20 


400 


BEM TXWS 1 SOI 


410 B = E-W: IFR<Z raEH F = P - W | 


420 


GOTO 20 


500 


BEM PfONT THE BOARD 


510 


FOBB-OTOP-1 




FOEC-OTOO-1 


520 I 


= B * + C: IF G%(I) IBBI 




FBIWT "*";: GOTO 540 


530 


PEIHT " "r 


MO 


NDfT : PRIHT : NEXT 


550 


BETOBK 


1000 


BEM STfiRT Efitai GENERfiTlfW 


1010 


FOR V = 1 TO X 


1015 


L = Z 


1020 


FC«I-OTOP-1 




FORJ = OTOO-1 


1030 


H = Z:R - I:C = J 


1040 


GoetlB 110 


1050 


GOSUB 210 


1060 


GCSUB 310 


1070 


□06LIB 310 


1060 


GCGDB 410 


1090 


OCGUB 410 


1100 


GOSUB 110 


1110 


GCGUB 110 


1120 H = GS[L) 1 


1130 


IF til = E raOl H - H + W 




GCWO 1160 


1140 


IF H < > T T«EN GOTD 1160 


IISO 


IF K •nJSH H - E 


1160 


Gt(Ll -^ H 


1170 L = L + W J 


iieo 


HEICT : KEXT 


1200 


FC« I - TO PC 


1210 


IF G*(I) AND W raEB G%{I) = T 




: GOTO 1230 


1220 G»(I) = Z 1 


1230 


tmia: 


1240 


OOSUB 510 


1300 


NEJfr 


1310 


EHD 


8000 


RfM INITIfiLIZflTICW 


8010 W - 1:R = 0:C = 0:Z = 0:T - 2 | 


6020 


P - 10:Q « 10 


B030 


PO ■= P • Q 


8040 


DIM G»[PO) 


8050 E = 3:H = 0:L = 0:1 - OjJ - 1 


eoeo 


FOB I = Z TO PQ:G%{I) - Z: KE)fr 


Boeo 


mtvt ■■v,R,c?":i,B,c 


8090 


IF 1 < Z GOTO 8200 


8100 G«(B • + C) - I 1 


8110 


GOTO eceo 


8200 


INPUT "CT»S?"!X 


8210 


GOSUB 510 


8320 


GOTO 1010 
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If the value is zero, it is considered 
false, and the ELSE pan is performed. If 
it is anytliing else, it is considered true 
and the statements after the IF are ex- 
ecuted. The end result is a number left 
on top of the stack with the low bit set 
for the next generation. The second hit 
is left the way it was to start. 

After taking eare of births and 
deaths for every cell in the universe, 
the new generation is moved over to 
take the place of the old, and PRINT is 
used to show the resulting pattern. 
Finally, the whole process is repeated if 
more generations arc requested. 

Before I go into a discussion of the 
BASIC version, I would like to point 
out a few differences between my im- 
plementation of FORTH and fig- 
FORTH. FORTH is really designed to 
run on at least a 16K system, preferably 
with diskettes. Unfortunately, I only 
have an 8K eassette-based SYM. In 
order to make it fit, I had to remove 
some of the standard FORTH code, 
primarily the double integer arith- 
metic, which is not needed for LIFE 
anyway, 

I also had to change the basic unit of 
input. Fig-FORTH is designed around a 
1 6-linc by 64-character ' ' screen, " 1 
only had room for a 128-byte input buf- 
fer, and a 128-byte output buffer, if 1 
wanted any room left for programs. 
Even then I had to put the output buffer 
on page one. 

In order to minimize cassette I/O, I 
use variable length lines, and put as 
many as I can into a cassette block, so 
the listing you see is by blocks, while 
real FORTFI would list hy screens. I 
also compress spaces when putting 
lines to the buffer, but that is not ob- 
vious in the listing, since i put them 
back on output. 

Finally, in fig-FORTH, the word 
"— >" is used to force compilation to 
contmue from one screen to the next. 
In mine, I assume you want to continue 
unless specifically stopped by the new 
word "-30-". Again, this was done to 
save valuable buffer space. Other than 
arranging the source into screens, and 
adding the -> to the end of each screen 
this version should run with any stan- 
dard fig-FORTH system. 

The BASIC version was not written 
with speed as the major criterion. It 
was mainly written to he comparable to 
the FORTH code. Where possible, I did 
make some attempts to speed the 
BASIC. For example, I used variables 



instead of constants in lines where they 
are used frequently, to avoid the con- 
version overhead. There arc also some 
things which 1 chose not to do which 
would have speeded it up. For example, 
I left in the REM statements for read- 
ability, but they can easily be removed, 
since I did not refer to them in any 
GOTOs or GOSUBs, Also, I started 
each routine on an even 100-numbered 
line. This makes it a little easier to 
separate the different sections. For 
speed, it would have been better to 
start with the line number 1, and incre- 
ment by 1, to keep the line numbers as 
small as possible. This would cut down 
on the source size, and also the amount 
of time to convert from characters to 
internal line numbers in GOTO and 
GOSUB statements. 



There are some basic differences 
between the two languages, which 
make exact translation impossible. The 
FORTH version uses only a single byte 
for each cell, but the minimum in 
BASIC is two bytes for an integer 
variable. I could have used PEEK and 
POKE to cut it down to one byte, but 
that would have involved setting 
memory size, and make things harder 
to understand. 

BASIC doesn't have the IF. ..THEN 
,,,ELSE structure that FORTH has, so I 
used GOTOs to finish the THEN por- 
tion, and the normal statment flow is 
the ELSE portion. Also, at the end of 
the BASIC versions of Back 1 column, 
etc., [ used a GOTO to get to the ADD 
routine and returned from there. To be 
more faithful to the FORTH version, I 
should have used a GOSUB and a 
RETURN, but I just could not bring 
myself to write code that inefficiently. 

You should also note that both 
FORTH and BASIC consider a zero 
result in an IF statement to be false 
|i.e,, a non-zero value causes the THEN 
portion to be executed! , Most of the 
BASIC and the FORTH version IF 
statements are coded the same, but I 
had to reverse the logic in the section 
which determines what the value of the 
next generation of a cell will be (lines 
1130 to 1160 in the BASIC version), 
FORTH uses a compound IF structure 
which is not available in BASIC. For 
the FORTH version, the ELSE portion 
of that big IF statement is equivalent to 
the THEN part of the BASIC version. 
I'll let you decide which is easier to 
understand. 

Finally, some speed and size com- 
parisons. Excluding the compiler, the 
FORTH version takes 614 bytes for a 10 
X 10 universe, and goes tfu^ough four 



generations in 15.4 seconds (running 
on a 4800 baud CRT|. The BASIC ver- 
sion takes 1318 bytes for the same size 
universe, and runs four generations in 
78.8 seconds. Both were run with the 
same starting pattern. The FORTH ver- 
sion took me longer to write, but it was 
also one of my first FORTH programs, 
so the comparison is not valid. My big- 
gest problem was learning to write 
GOTOless code! 

I will copy my version of FORTH to 
a cassette that you supply for $5,00 to 
cover my time and postage. You will 
still need the fig-FORTH installation 
manual available from the FORTH In- 
terest Group, P,0, Box 1105, San 
Carlos, CA 94070, It was $10.00 last 
time 1 heard. 



Nicholas Vrtis is Manager of Teclinical 
Support for Amway Corporation in Ada, 
Michigan, He has been in data processing 
since 1969, In 1978 he bought a SYM with 
8K, Being a fiddler at ficart, his small SYM 
gives him an opportunity to exercise his 
talents. 
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For PET and 
CBM owners 
only: 

This is just 1 of 20 
pages of the newest 
and biggest Skyies 
catalog, hot off the 
press. 

We know you'll want 
this page, in its full 
QVz X 10 splendor, 
and another 19 
pages of [peripherals, 
software and books 
that will make your 
PET or CBM 
computer even nicer 
to live with. So, if 
we missed sending 
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you your very own 
copy within the last 
few weeks, call us at 
(800) 227-9998 
(unless you live 
in California, in 
which case call 
(415) 965-1735. 



From Skyies 
Electric Works, the 
oldest and largest 
professional 
specialists in the 
business. 



Skyies Electric Works 

231 • E S. Whisman Road 
I Mountain View, California 94041 



FORTH Resource List 


AB Computers 


FORTH Interest Group (FIGl 


Micro Motion 


252 Bethlehem Pike 


P.O. Box 1105 


12077 Wilshire Blvd., #506 ...^ 
Los Angeles, CA 90025 9bM 
(213] 821-4340 ^^ 


Colroar, PA 18915 


San Carlos, CA 94070 


[2151 %T1-77T7 


(4151 962-8653 


FORTH foi PET/CBM 


2500 membeis worldwide 


FORTH 79 for Apple 11, 11+ and Z80 




FORTH Dimensions — FIG magazjiie 


Cap'n Software 


General FORTH support 


1 


P.O. Box 575 




Mountain View Press 


San Francisco, CA 94101 


FSS 


P.O. Box 656 ^, .J 


(415) 540-0202 


1903 Rio Grande 


Mountain View, CA 94040 '^^qfl 


FORTH foi Apple n 


Austin, TX 78705 


(415] 961-4103 ''•■m 




(5121 477-2207 


Apple. 6809, and others j 




FORTH foi PET/CBM 


Manuals, guides, documentation, 
machine- readable disks 


Empirical Research Group Inc. 






P.O. Box U76 


George B. Lyons 




Milton, WA 98354 


280 Henderson St. 




(2061 631-4855 


Jersey City, NJ 07302 


KV33 Corporation 


For MC68000 


FORTH for Apple and others 


P-O, Box 27246 
Tucson, AZ 85726 
1602] 889-5722 


FORTH, Inc. 


Frank Hogg Laboratories 


Screen editor 


2309 Pacific Coast Hwy. 


130 Midtown Plaza 




Hermosa Beach, CA 90254 


Syracuse, NY 13201 




(213) 372-8493 


|315] 474-7856 


This list is not meant to be comprehensive. 


Geneia} FORTH pioduct support 


TRS-80 Color Computer 
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OSI Disk Users 

Double your disk storage capacity 
Without adding disk drives 

Now you can more than double your usable floppy 
disk storage capacity— for a fraction of the cost 
of additional disk drives. Modular Syatems' 
DiakDoubler'" is a double- density adapter that 
doubles the storage capacity of each disk track. 
The DiskDoubler plugs directly into an OSI disk 
interface board. No changes to hardware or 
software are required. 

The DiskDoubler increases free user disk space 
from50Kto 120K for mini-floppies, from 201K to 
420K for 8-inch floppies. With the DiskDoubler, 
each drive does the work of two. You can have 
more and larger programs, related files, and disk 
utilities on the same disk — for easier operation 
without constant disk changes. 

Your OSI system is an investment in computing 
power. Get the full value from the disk hardware 
and software that you already own. Just write to 
us. and we'll send you the full story on the 
DiskDoubler, along with the rest of our growing 
family of OSI -compatible products. 

'" DiskDoubler Is a trBdemOirk of ModulSir Systeme 

Modular Systems 

P.O. BoxIBA Oradell, NJ 07649 
201-2B2-00B3 



OSI 
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••FROM THE PAET2£U'AND jUIC^AHE' 

HUMANOID 

DEFENDER 

A^ liEPSiDSR OF THE HUHANOID COLONIES 
YOU'VE GOT TO STOP THE ALIEN 
LAKDEBS THAT lUlE THIINO TO 
PICK UP iWD KUTATE THE 
HinUNOIDS. IP A l.AKDER 
PICKS UP A SUMAHDID. YOU 
HAVE TO BLAST THE LANDEH , 
THEN CATCH THE HUHAHOIO IN 
HID-AIH AND LDUEil IT SAfELt TO 
THE CROUND FOH A B0NU3I EVtBl NOU 
AMD THiB, A BAIIEH SHIP APPEAHS OUT 
OP SYFEBSPACE 10 SEEP THIH03 
IKTERESTIKOt WTH COLOB AMD LOTS OF 
30UND1 as CASSETTE 14.95 

-spEcipr rouB sisiEm* 




/\_^ 'ASTRO BLASTEH' 

f ^~1 I ASSiCHKEBT: CLEAH THE AliEA OF riA3affilOUS 

' jyf^ ASTEFLOIDS UlilC); AhE DRIFJINO IN fHON DEEP 

^V^ ti SPACE. BY BLASriNC TJiEH INTO HUBBLE. BE 

~~-. t!T_ CAREFUL BECAUSE THE LARGE ONES SPLIT IMO 
K ^<J iVSb.NANY SrALLEH ONES UHEN HIT, WHICH .fLi Wf 
J I / I ' ^^IN M-L DIRECTIONS! JUST UlfEN YOU THINK 
/ I ' YOU'VE BLASTED THEH ALL. noRE APPEAR! 

"AaTBO BLASTER" Cy JOHN WILSON IS A "MACHINE CODE" 
031 VEBSIOH OP ONE OF THE HOST POPULAR AHCAOE GAUES OF ALL 
TIBESI THE ACTION IS VERY SMOOTH AND THE ASTEROIDS ARE r)iE BEST 
LOOKING EVER ON OSI- NO LITTLE CIRCLES HEBEr AUA1!,AELE FOR BOTH 
CIP AND "■CP"' PLtASE SPECtPl YOUR 
SISTEK. B« CASSETTTE »9.95 

SEND tl.On FOB OUK PHOTO- 
iLLUSTRATED CATALO!; » GET ( 

11.50 CREDIT ON lOUB FIRST 
ORDEH! CASSETTEIS ONLY! 

Pietzelland Soltware 

ZDOS D WHtTTAKER RD. 
YPSILANTI, MI.48197 
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The BEST games are from Creative Computing Software 

1978: Adventure 

1979: Air Traffic Controller 

1980: Super Invader 

1981: Blister Ball 
and Mad Bomber 



Blister Ball 



Blister Ball is tl^e first completely original 
arcade-type game for a computer. Not a 
copy, not an adaptation, not a spinoff. Blister 
Ball is new— it's a new idea— better than 
Invaders, belter than Circus, better than 
Asteroids, better tHan Galaxian. If you've 
played other games for hours, you'll play 
Blister Ball for days. 




How does it worl(? Well, some mean but 
tun-loving aliens have produced some 
bouncing bombs. First they drop one and 
you've got to position yourself under it and 
zap it with your laser. If you miss, that's 
OK. It will bounce around, although each 
bounce is lower, and you have several 
chances to zap it. Got the hang of it? OK. 
here come two bouncing bombs. Vou zap 
them. Then you're faced with three, then 
four and five. 

As they bounce longer and longer the 
walls begin to close m so you're faced with 
either zapping the bombs or being hit. Each 
hit l<nocks you a littie further toward the 
gutter. But you can survive two hits which 
is usually enough to zap all the bombs. 



Feeling confident? Don't. Because after 
5 bombs the murderous little devils drop 5 
bonus bombs, worth ten times as much. 
These don't bounce, so you get only one 
shot. You need nerves of steel and the 
reflexes of a tail gunner. 

After you complete one round, the game 
starts again with bombs that bounce taster 
and lower (and are worth more) than the 
previous ones. 

Blister Ball is a fantastic solo game. But 
there are two-player options as well in which 
players can play as a team or as opponents. 
Each player can move the entire width of 
the screen and zap any of the bombs. Here, 
you're not only trying to survive, but trying 
to oulscore your opponent. The game has 
two skill levels. 

Mad Bomber 

In Mad Bomber you are faced with aliens 
in a huge ship hovering overhead They 
have bomb racks which they constantly fill 
with bombs. Your object is to move from 
side to side on the ground and zap the 
bombs in the bomb racks or as they fall. 




As the game progresses, the aliens fill 
up their bomb racks more quickly and the 
bombs fall faster You lose after ten bombs 
have hit the area which you are defending. 

Mad Bomber can be played by one player 
solo or by two players as a team or as 
opponents. Two skill levels. 

Order Today 

Blister Ball and M&d Bomber are available 
together for $24.95 on disk (DOS 3.2| only 
and require a 48K Apple with paddle 
controls. (We recommend using the Super 
Paddles from Peripherals Plus), 

To order send $24.95 plus $2.00 shipping 
and handling to the address below. Credit 
card customers should include card number 
and expiration date of Visa, MasterCard or 
American Express card. Credit card orders 
may also be called in to our loll-free number 
in the continental U.S. 

If you also wish to order a set of Super 
Paddles from our Peripherals Plus subsidiary, 
the cost is just $39.95. Ttie paddles are 
backed by a 90-day limited warranty from 
the manufacturer as well as Peripherals 
Plus' moneyback guarantee of satisfac- 
tion. 

Blister Ball and Mod Bomtwr are colorful, 
challenging, fast and noisy. They are the 
games of the year from Sensational Soft- 
ware. 

GPeative 
GompatiR({ 

Attn: Gladys 

39 E. Hanover Avenue 

Morris Plains, N J 07050 

Toll-free 800-631-<112 

In NJ 201-540-0445 
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Ihe Graphics Family, 



The most versatile, 
easiest-to-use 
graphics available 
for your Apple II. 



The A2-3D1/3D2 with A2-GE1 Graphics Editor package 
lets you put simultaneous multiple graphic images on 
your screen . . . where you want, the size you want, in 
your choice of orientation, complete with upper and 
lower case text. Because the most important part of 
your computer system is you. 5119.85 

*LOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217)359-8482 
Telex: 206995 



^t-iKiiiiH "* fiia 



' Apple IS Ihe regislered irademark Of Apple Computet I tie. 



EDITRIX * GRAPHTRIX = THE MOST POWERFUL WORD PROCESSOR 
THIS SIDE OF A NEWSPAPER COMPOSITION ROOM 



EASY TO USE 



EDITRtX,. 
TEXT EDITOR 



• HELPi Key 

• Friendly, COMPLETE inslruclions that you or /our 
secretary can understand. 

■ Easy lo remember 1 or 2 keystroke commands 

• See youi document formatted on the screen AS YOU 
EDIT IT 

POWERFUL 

■ 250 Column Hofizontal Scrolling, 

• AuLomatic Graphic Insertion and Foimatting, 

• Automatic Footnote Inseition, 
■ Underline - Supeiscriyt - Subscript- Search- Replace - 

Block Move, 

• Full Ptintsize, Emphasis. Jusiify, Margin and Cursor 
Control 

FLEXIBLE 

• Capital letters with ESC ci Slutl Key modi'ication. 

• To be supporied by Data T aiistorms new headline 
generator corning soon. 

• Prtntoul thro'jgh GRAFHTiilX to 1 1 dillerent Printers 
WITHOUT CHAf-lGING YOUfl TE<T FILEi 

REQUIRES; App.e II with 4SK. Applesoft in ROM, DOS 3 3 
and itse GRAPMIRIX Malm Graphics System 

FROM DATA TRANSFORIUIS, INC. 



rcl Conyri(,"l ksai O-itta Ti^n = l 



Dl Ap&IC COiilU 

, WfiE firinfti 



GRAPHTRIX.. 
TEXT PRINTER AND GRAPHICS SCREEN DUMP 

EASY TO USE 

• Complete READABLE documentation, 

• Fully Menu Driven 

■ Seit-rijnnmg Introduction and Demonstration, 

POWERFUL 

• Graphic Magnilicalion, fjormal/lnuerse. Page Centering, 
Hi and Low Crop Mat((s. Tide Siring 

• Aiilomalic Formatting ot Graphics in yoiir Document 

• Prmt Size. Emptiasis. Underline, Superscript, Footnotes, Chapters, 
controlled Irom your text tile. 

fle;<ible 

• Prints ANY HJ-RES Graphic your Apple II can create. 

• Formats Test dies Irom Applowriter OR EDITRIX 

• Use 35 a Menu Driven Screen Dump OR Irom in YOUR OWN 
Applesolt Program 

• Compatible wilh 1 1 dillerent Matrix Line Prmters AND 7 dillerent 
Parallel Interlace Cards 

REQUIRES- Apple II witn^SK, ApplesoM inROM DOS3,3andoneof1he 
following line ptinfeis EPSON MX-70/MX-8Q/MX-100, ANADEX 
95DQ/9501, IDS 440G/445G/'»60G/56DG. CENTRONICS 739, MPI asG. 

SILENTVPE. 

THE GRAPHICS LEADER 

on n< SoJarslanei lni; 
■b.'- CO QO?ia 13031 72P.Br7J 
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The Single Life 



By Brad Rineharl 



Welcome back! This is the second in 
our continuing series of single-board 
computer articles. For those of you who 
missed last month's column, wc intro- 
duced some of the manufacturers sup- 
porting the single-board machines, and 
described some of the benefits of this 
type system. This month we will move 
FORTH and spotlight one of these ven- 
dors, Rehnke Software. To many of you 
this name will sound familiar. For 
those who are rather new to the single- 
board scene, Rehnke Software is headed 
by Mr. Eric Rehnke, a long-tim.e expert 
in the industry. 



Rehnke Software has produced a 
very fine 6502 FORTH system. This is 
a "full-featured" system, as opposed to 
a subset, available for the KIM-l, SYM-1, 
and AIM 65 computers. It is available 
on ROM, cassette, or disk for HDE disk 
systems. 6502 FORTH adheres to the 
internationally recognized FORTFi 79 
language standard, in addition, it con- 
tains its own editor, assembler, inter- 
preter, compiler, and virtual memory 
manager. Therefore, 6502 FORTH 
should be thought of as a complete 
operating system, not just a high-level 
language. 



Several years ago, little was known 
about the FORTH language and many 
people within the industry expected little 
to come from the introduction of this 
threaded language. However, FORTH 
has found its way into the computer in- 
dustry in many dimensions. It has been 
used in word processing, data base 
management systems with remote data 
gathering, telescope control, financial 
management systems, numerical control 
machines, and telecommunications sys- 
tems. Because of its versatility, FORTH 
will find its way into many control and 
data processing applications. 



The system resides in slightly less 
than 12K of memory. It also requires 
two pages of memory (512 bytes) for 
stacks, and zero page. The virtual 
memory manager interfaces text buf- 
fers in memory to the cassette or floppy 
disk mass storage. Any number of buf- 
fers may he configured, depending upon 
the amnimt of available RAM. The 
more buffers the user assigns in mem- 
ory the lower the number of mass 
storage accesses the system will have 
to make. Thus the user may build in 
his own throughput factor. 



OK, you say, this is all well and 
good, hut why should I learn FORTH? 
Well, FORTH will not be the "end-all" 
language, but it is a very nice language 
system! FORTH combines the advan- 
tages of high-level languages, such as 
stmctured programming, ex tend ability, 
case of readability, etc., without losing 
grasp of the machine internals. 6502 
FORTH easily interfaces to assembly 
language routines and has direct access 
to memory. As I mentioned, 6502 
FORTH is a complete system, not a 
subset. This makes its use in special 
applications, such as control functions, 
somewhat unique. A manufacturer 
may purchase the HDE disk version to 
produce code for an industrial con- 
troller, for example, and then use the 
ROM version in the device! Keystone 
Data Consultants is already taking a 
hard look at possible applications. 



In addition to conforming to the 
FORTH 79 standard, 6502 FORTH 
combines some unique language fea- 
tures into an already extensive 
package. Included in its math-handling 
features is the ability to work with 
single precision (16-bitl, double preci- 
sion |32-bitj, and 11-digit floatingpoint 
[48-bit] numbers. The built-in floating 
point routines include the F -i- , F - , F * , 
F/, and FSQRT (square root) operators. 
In addition, necessary stack manipula- 
tion words such as FDUP, FSWAP, 
FDROP, F>, and F = , etc., are also part 



of the package. Transcendental func- 
tions may be performed by adding addi- 
tional words, as described in the 
documentation. 

6502 FORTH also includes some 
familiar string handling functions. The 
BASIC programmer will find LEFTS, 
RIGHTS, MID$, VAL, etc., quite 
familiar. This effort to conform a 
powerful language such as FORTH to 
command words familiar to most 6502 
programmers will help make 6502 
FORTH a popular programming tool. 
This versatility is found in few other 
high-level languages. 

Those programmers who are familiar 
with HDE's FODS disk operating sys- 
tem will find an interesting parallel in 
6502 FORTH. Ail I/O is routed through 
jump locations near the beginning of 
the system, similar to the external 
jump table in HDE's FODS. This 
makes it relatively easy to interface 
6502 FORTH to any type of I/O device. 
This can be useful to the manufacturer 
who is using a disk system to develop 
his software and wishes to convert the 
system to a stand-alone device. In addi- 
tion, a software switch activated by 
two commands, H-ON and H-OFF, is 
provided to route output to a hardcopy 
device, provided one is available. This 
is similar to HDE's '#' command (such 
as #LIS|, or the CALL function in HDE 
Disk BASIC (CALL "PTR"|. 

FORTH's editor operates on the IK 
blocks called "screens." Commands 
are included to enter a line of text, 
delete a line of text, open a space be- 
tween two lines of text, and edit a line. 
The edit function is similar to that in 
HDE's TED or TEXT EDITOR. An 
80-column by 24-line CRT is recom- 
mended to take full advantage of the 
editor. 

A 6502 macro assembler is also in- 
cluded in 6502 FORTH. The macros in- 
clude begin ... until, if ... else ... then, 
if ... then, and several other looping and 
branch constructs. These macros are 
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COLOR VIDEO MONITORS 

. COMPOSITE VIDEO INPUT. NTSC: 
TC-700 13" color monitor /TV receiver, 
si\itchabte, $399,00, TC-900 19" mon- 
itor/TV receiver. $495,00. 

• Sony TV to video monitor conversion 
kit, MCK-100;opto*solator input. SI 35.00, 

. RGB VIDEO MONITORS; Analog or 
TTL drive, 380 n 350 resolution, 
13" CRM-13 $485.00 
19" CRM-19 $576.00 

15" Trinitron, 3 modes, RGB. compos- 
ite video. TV. 51095,00, CM 15 RGB. 

. RGB convener board for Apple 11, 
provides RGB video and sv"c; mod. 
VCB-A2. $179.00. 

• Sony TV to RGB and composite video 
monitor conversion kit, RGB-100: 
$295.00 (available January 1982). 

For additional information, contact: 

P.O. Box 339 

Warrington, PA 18976 

(215) 343-3000 

DEALER INQUIRIES INVITED 



used to completely eliminate the use of 
labels in the assembler. For example, if 
we had written a loop as: 

LDX#8 
LOOP LDA 200,X 
STA 300, X 
DEX 
BNE LOOP 

We could express the same thing in the 
6502 FORTH assembler as: 



BEGIN, 



8 # LDX. 

0200 ,X LDA, 

0300 ,X LDA. 

DEX, 

= UNTIL, 



The BEGIN statement marks the 
beginning of the loop, and the = UN- 
TIL statement causes a BNE instruc- 
tion, as well as the proper offset, to be 
assembled into memory. This structure 
may seem somewhat odd at first, but 
those of you who are familiar with 
structured languages should recognize 
the method used here. In addition, once 
you start using it, the structtu-ed 
language makes more sense. It makes 
even more sense when you consider 
that the structure of the FORTH 
assembler is entirely consistent with 



the rest of the system! Looping and 
branching constructs such as begin ... 
unti7, if ... then, etc., are the same in 
the FORTH assembler as they are in the 
high-level FORTH system. 



6502 FORTH combines the features 
that we like in a high-level language 
system: readability, conformity to ex- 
isting software, ease of use, etc. Coupled 
with a disk system, this will make an 
exciting development tool. As 6502 
FORTH is used in more and more appli- 
cations, I would like to hear about them. 



I encourage you to write to: 

Rehnke Software 
1067 fadestone Lane 
Corona, CA 91720 

for information of this complete pro- 
gramming system. It will be a worth- 
while investment. 

Please address all correspondence 
for this column to: 

Brad Rinehait 
1508 Stanton Street 
York, Pennsylvania 17404 
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Perry PerIpIieraIs RepaIrs KIMs!! 

(SYMs ANd AIMS Too) 



• We will Diagnose, Repair, and Completely Test your Single Board Computer 

• We Socket all replaced Integrated Circuits 

• You receive a 30-day Parts and Labor Warranty 

• Labor is $38.00 if 40-pin ICs are socketed ($40.00 otherv^'ise) — Parts Extra 

• Your repaired S,B,C. returned via U.P.S. — C.O.D., Cash 

Don't delay! Send us your S.B.C. for repair today 
Ship To: (Preferably via U.P.S.) 

Perry PERiphcRAls 

6 Brookhaven Drive 
Rocky Point, NY 11778 

Perry Peripherals carries a full line of the acclaimed HDE expansion components for your KIM, SYM, and 
AIM, including RAM boards. Disk Systems and Software like HDE Disk BASIC VI. 1. Yes. we also have 
diskettes. For more Information, write to: P.O. Box 924, Miller Place. NY 11 764 or Phone (51 6) 744-6462. 
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APPLESCOPE 

DIGITAL STORAGE OSCILLOSCOPE 
Interface for the Apple ]l Computer 




The APPLESCOPE system combines two high speed analog to 
digital converters and a digital control board with the high resolu- 
tion graphics capabililies ot the Apple II computer to create a 
digital storage oscilloscope Signal trace parameters are entered 
through the keyPoard to operational software provided in PROM 
on the Dl control board. 

• DC to 3.5 Mhz sample rate with 1024 Pyte butler memory 

• Pretrigger Viewing 

• Programmable Scale Select 

• Continuous and Single Sweep Modes 

• Single or Dual Channel Trace 

• Greater than or less than trigger threshold detection 
Price lor ihe two tjoarfl Applescope system is $595 
EXTERNAL TRIGGER ADtJAPTER $29 

APPLESCOPE EXPANSION CAPABILITY 

APPLESCOPE- HR1 2 High resolution 12 Pit analog to digital 
converter with sample rates to 100 Khz.Software included on disk 

Price per channel S69S 

APPLESCOPE - HBHS High Resolution AND High Speed. 

Com Pines two 6 bit flash Analog to Digital converters to give 1 □ 
bit converter accuracy at a mawmum 7 Ivlh;. sampling rale. 
Software included on Oisk Price per channel $695 

SCOPE DRIVER Advanced software for the Appiescopesystem 
provided on 5Va" lloppy disk. AvailalDle options include; 

• Signal Averaging - Acquires 1 to 255 signal sweeps and 

displays the averaged result. 

• Digital Volt Ivieier- Allows use as a real timeOVIvtoruseto 
measure points on an acquired sweep. 

• Hard Copy - Uses graphics printer to produce hardcopy 
output of displayed traces. 

• Disk Storage - Allows automatic storage and recover of 
acquired data on lloppy disks. 

• Spectrum Analyzer- Calculates and displays frequency 
spectrum ot acquired data 

The basic SCOPE DRIVER package cosi is $49 plus $10 
for each selected option. 

BUS RIDER 
LOGIC ANALYZER for the APPLE 11 

The BUS RIDER circuit card silently rides the Apple II penpherial 
bus and allows real time tract<ing of program flow. Soltware pro- 
vided on EPROM allows set up of trace parameters from the key- 
Poard and read back of disassembled code after a program has 
been tracked, 

• 32 bil by 1 02'1 sample memory Puffer 

• I\;1onitors Data and Address bus plus 8 external inputs 

• Tngger on any 32 bit word or external trigger 

• Pretrigger viewing 

The BUS RIDER IS an mvaiuaPie development tool for anyone 
working with Apple II or Apple \\+ computers Pnce $295 

Apple II BUS EXTENDERS $19.95 

Allow easy access to Apple ii penpherial circuit cards. 

SCOPE PROBES 100 Mhz Bandwidth XI a X10 switch 
selectable oscilloscope probes. Pnce each $49.95 



For further mformaiion contact. 

VISA Master Charge 
Dealer Inquiries Invited 



RC ELECTRONICS INC. 

7265 Tuolumne Street 
Goieta, CA 93117 

(805) 968-6614 
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Bazaial, Michael, "AIM for Total Control," pg. 102-104. 
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pg. 236-242. 
Several listings to improve the speed of some opera- 
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White, George M., "Using Interrupts on the Apple II 
System," pg. 280-294, 

Notes on the implementation of the seldom used 
Apple interrupts. 



1195. Applesauce 2, No. 4 (May, 1981) 

Mazur, Jeff, "Coping with Apple's Serial Card," pg. 8, 

Part II describes a hardware modification for this 

peripheral card, 
Siegal, Ed, "Epson MX-80 Printer Initialization," pg. 
10-12. 

A utility for this Apple printer combination, 
Blumenthal, Jerome B,, "Applewriter to Apple Pie Con- 
version," pg, 23, 

Routine to convert Applewriter binary files into Apple 

Pie text files. 



1196. Popular Electronics 19, No. 6 (|une, 1981J 

Anon., "Atari Model 800 Personal Computer," pg, 48-50, 
A review of this 6502-based microcomputer. 

1197. Apple-Dayton 2, No. 5 (May, 1981) 

Mathews, John, "Telephone Author," pg, 10-11, 

Program to make it possible to transfer Apple Writer 
files over the telephone, 

1198. Apple Bits 3, No. 5 (May, 1981) 

Kovalik, Dan, "Taking the Mystery and Magic Out of 

Machine Language," pg, 2-5, 
Here is a BASIC program on a Lo-Res Apple graphics 
game which was then converted to Assembler, state- 
ment by statement, so a comparison can be made run- 
ning both from BASIC and from machine language. 

Tulk, Stuart P,, "Letter Head," pg, 7, 
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A 

Wooden 

Computer? 



Not from Commodore! 

So why should the desk look like wood? A pleasant 
cream and charcoal trimmed desk looks so much better 
with Commodore systems. One look and you'll see. 
Interlink desks are right. By design. 

The specifications only confirm the obvious: 



•Cream and charcoal 
color beautitudy matches 
the Commodore hardware 
and blends with your 
decor, 

•An ideal 710 mm {28"f 
keyboard height yet no 
bumping knees because a 
ciever cutout recesses the 
computer into the desk- 
top, 

• High pressure laminate 
on both sides of a solid 
core for lasting beauty 
and strength, 

• Electrostaltcally applied 
baked enamel finish on 
welded steel legs— no 
cheap lacquer Job here. 



•T-moldlng and rounded 
corners make a handsome 
finish on a durable edge 
that won't chip, 
•Knocked down for safe, 
inexpensive shipment, 
•Patented slip joints fof 
quick easy assembly. 
• Leveling glides for 
uneven floors. 
•Room enough for a 
Commodore printer on the 
desk, yet fits Into nearly 
any den or office niche — 
H: 660 mm (26") W; 1170 
mm (46") D: 660 mm (26"). 
•Matching printer stand 
available with slot for 
bottom feeding. 



PRICE: $299 

In short, as Commodore dealers, we won't settle for 
anything that looks good only in the catalog! Our 
customers won't let us. They don't buy pictures. And 
neither should you. This Is why w» will 1st you use ona of 
our dssks lor a week and then decide. If for any reason 
you don't like it, just return it in good condition for a 
cheerful refund, 

■ — ~ ™™„i„J 

II your Commodore dealar doesn't carry our dsska yal, 
send a chack lor $299 and wa will ship your dask Iralght 
paid! 

Name 



Address. 
City 



.St_ 



-Zlp- 



Intarllnk, Inc., Box 134, Berrlsn Springs, Ml 49103 
Master Charge and Visa welcome. Call our order line: 
616-473-3103 
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IS TERRIFIC 

(Fop Your Apple) 



NIBBLE 18: The Reference for Apple computing! 

NIBBLE IS: One of the Fastest Growing new Magazines in 
the Personal Computing Field. 

NBBLEI8: Providing Comprehensive, Useful and 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NIBBLE IS: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 

- "Certainly the best magazine on the Apple 11" 

- "Programs remarkably easy to enter" 

- ' 'Stimulating and Informative; So much so that this is the first computer magazine I've 
subscribed to!" 

- "Impressed with the qualify and content ." 

- 'NIBBLE IS TERRIFIC!" 

In coming issues, look for: 

D Stocks and Commodities Charting D Assembly Language Programming Column 
D Pascal Programming Column D Data Base Programs for Home and Business 
D Personal Investment Analysis D Electronic Secretary for Time Management 
D The GIZMO Business Simulation Game 

And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

Try a NIBBLE! 




NOTE 

— Domesiic U S. First ClasG subscnpiion rale <& J36 50. 

— Wnle Or call loi Foreign aubsEinption rales 

*ll payments must t« m U S funflsaraiiWi on d U S bank 

p i9Bnby*jHC«0-SPAnc. INC Lmcoln Ua55 01773 All riglilS reseruad 

" AppPe 11 IS a registered IradeniBFk o1 Apple CoFnpyler CoTpany 



nibble 



We accepT UssXsr Charge a Visa 
Box 325. Lincoln, MA. Q1773 (617) 259-971D 

I'll try nlbblei 

Enclosed is my $19.95 {for B issues) Price effeclive Jan. 1. 1982 

(Outside U.S., see special note on this page.) 

D check D money order 

Vour subscriplion ^i\\ begin with The next lasue pyblished alrer recobpl of your 
check/money order 



Card « 



Expires 



Signature 
Name 



Address . 

City 

State 



-Zip 



\ 
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Software Catalog 



Name: Color Berserk 

System: TRS-80 Color 

Computer 
Memory: 16K 
Language: 6809 Machine 

Lanjjuagc 
Hardware: No extra 
Deseripiion: Color Berserk 
closely dupHcates the popular 
arcade game with dynamite 
sound effects and super ioy 
stick action. The exciting com- 
bination of angry robots and 
Evil Orville will provide many 
hours of constant challenge in 
this one- or two-player game. 
Color Berserk is a winning ad- 
dition to the popular Mark 
Data Products adventure game 
scries. 
Price: $24. 95 mcludes game 

cassette and pre-paid shipping 

in the U.S. 
Author: Ron Ktehs 
Available: 

Mark Data Products 

23802 Barquilla 

Mission Vieio, CA 92691 



Name: Pilot plus^^^ 

System: TRS-80, Apple 11 

with Z8() card 
Language: A high level Pilot 

with extensions 
Description: The first com- 
mercially-supported course- 
authoring language that is 
transportable across a wide 
range of micros and minis. 
This transportability allows 
authors to develop courseware 
to be implemented on a variety 
of systems without modifica- 
tion This language supports 
video tape, video disk, touch 
panel, light pen, color graphics 
and stored digital voice. 
Price: $150.00 pet copy, 

$10,00 for manual 
Author: Online Computer 

System Inc. 
Availahle: 

international Institute of 
Applied Technology, Inc. 

20011) Century Blvd. 

Suite 100 

Germantown, MD 20874 



Naine Directory Masier 

System: Apple 11 

Memory: 48K 

Language: Applesoft 



Hardware: ROM 
Description: A fast machine 
language utility which lets you 
directly customize your disk 
catalogs. Allows creatinn of 
attractive diskette headers and 
file titles with flashing, in- 
verse or normal catalogs. Files 
may he sorted, hidden, deleted, 
locked, unlocked and restored 
with a few keystrokes. 
Price: $39.95 includes 

thorough documentation 
Author: Dr. Sandy Mossberg 
Available: 

Micro-Sparc Systerns 

Dcpt. P 

I'.O. Box 325 

Lincoln, MA 01 773 



Name: Sight 'n Sound 

System. Apple 11 or Apple 

II Plus 
Memory: 48K 
Language: Applesoft/ 
Assembly 
Hardware: Disk drive, 

cassette player or 
stereo 
Description: Music/ sound 
from a stereo or cassette player 
is synchronised with a light 
show of the user's design on 
the Hi-Res screen. Demos 
include laser design, kalei- 
doscope EKG and a guitar 
player whose lips move with 
the sound. No hardware 
modifications. 
Price: $24.95 includes diskette 

and 20- page manual 
Author: Ray Balbes, Ph.D. 
Available: 

CompugTaphics Software 

#6 White Plains Dr 

Chesterfield, MO 63017 



Name: EAP (Extended 

Arithmetic 

Processor) 
System: OSl 65D3 & 65U 
Memory: 48K 
Language: BASIC 
Hardware: OSl 
Description: Multiple preci- 
sion arithmetic for 9-digit 
Microsoft BASIC. Thitteen- 
digit input, 26-digit output, 
rounding function from to 9 
decimal places. Easy to use. 



All functions incorporated as 
additional BASIC commands. 
Switchable within program 
from 9-digit to EAP and vice 
versa. User manual and sample 
programs. 

Price: $95.00 end user, in- 
cludes 8" disk, 39-page manual 
Author: loan Tiiino 
Available: 
Northeast Financial 
Systems 
16 Maple Ave, 
West Nyack, NY 10994 



Name: The Rooms of 

Cygnes IV 

System: OSl C4P, TRS-80 

Models I & 11 
Memory: OSl - 8K, TRS-80 - 

16K 
Language: BASIC and 

machine 
Hardware: Amplifier, 

joysticks |OS!| 
Description: You ate in a room 
with walls placed randomly 
throughout. There are three to 
ten robots bent on destroying 
you with laser fire or by 
touching you. You must de- 
stroy all the robots in a room 
to advance a level. The higher 
the level the taster the robots. 
Watch out — the walls are 
electrified! There arc two skill 
levels. OSl version has sound, 
color and uses joysticks. 
TRS-8(1 version has sound. 
Price: $9.95 includes 

instructions 
Author: Mark A. Dickenson 
Available: 

Comput-U-Gamer 
Software 

P.O. Box 802 

Nevada, MO 64772 



Name: The Game Show 

System: Apple II or Apple 
II Plus, 3 2 or 3.3 
DOS 
Memory: 48K 
Language: Any Apple 
Hardware: Disk drive 
Description: The Game Show 
is an entertaining one- or two- 
player educational game. It is 
particularly helpful for vocabu- 
lary development from grade 3 
to adult. While The Came 
Shaw comes with 16 subject 
areas, you can add your own by 
using the included authoring 
system. The author requires 
no programming expertise. 
Price: S.39.00 includes de- 
tailed manual and diskette, 
one year warranty and backup 
diskette. 



Author: Geoff Zawolkov, 

Pete Rowe and Ted Peiry 
Available: 

Computer-Advanced Ideas, 
Incorporated. 

1442 A Walnut St, 

Suite 341 

Berkeley, CA 94709 



Name: Data Foreman 

System: HDE Disk 

Systems 
Memory: 32 - 56K 
Language: HDE Disk BASIC 
Hardware: AIM, SYM, KIM 
using HDE disk 
system (5" or 8"| 
Description: General purpose 
application for data entry and 
retrieval, report writing, and 
reload keeping. Allows user- 
defined data descriptors 
jheaders) and report formats. 
Typical uses: sales records, 
telephone list, employee per- 
formance evaluations, etc. 
Price: $79.95 includes user's 
manual, shipping within con- 
tinental U.S. 
Available: 
Keystone Data Consultants 
Incorporated 
P.O Box 606 
York, PA 17405 



Name: Grafpak.g023 (Hi- 

Res Graphics 
DumpI 

System: Apple II or Apple 

II Plus 
Memory: 48K or more 
Language: BASIC and 6502 

assembly 
Hardware: Disk 11 and NEC 
PC-8023A-C 
printer 
Description; Dump either Hi- 
Res page in horizontal Ix or 2x 
formats, or vertical lx-3)i for- 
mats. Dump both pages in a 
perfectly registered panorama 
in lx-3x formats. User-friendly 
drivers in both BASlCs and 
user program interface instruc- 
tions. Works with all known 
production I/O cards for Ap- 
ple Works with Apple 111 in 
emulator mode Composer 
allows edge cropping, image 
positioning, and image framing. 
Price: $34.95 ppd,, includes 

diskette, user's guide, and 

sample graphics 
Author: Robert Rennard 
Available: 

Smart Ware 

2281 Cobble Stone Court 

Dayton, OH 45431 

15131 426-3579 
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Name: Sorcerer of Siva 

System; TRS-80 |cassette 
or disk), Apple 
(diski 
Memory: TRS-80 disk, 32K- 
TRS-80 cassette, 
16K; Apple disk 
48K 
Language: Applesoft 
Hardware: TRS-80 jModel I 
or III, Apple 
(Applesoft or 
language card) 
Description: The player is a 
wizard with a variety of 
magical ?pells. He must avoid 
the evil sorcerei who may take 
his most valuable power away. 
He battles a multitude of 
monsters as he searches 
through more than 300 
chambers and five levels of the 
mine of Siva, seeking the only 
exit hidden somewhere on the 
highest level. A built-in scor- 
ing system challenges the 
player to make his way 
through the mine as quickly as 
possible. He also receives 
points for killing monsters and 
recovering the most valuable 
treasures. But some measures 
may even cost him points. 
Price: $29.95 inlcudcs game 
box, rule book, special 
instructions 



Author: Gene Rice 
Available: 

Automated Simulations, Inc. 

P.O. Box 4247 

Mountain View, CA 94041) 



Name: VMIX 

System: VisiCaic File 
Consolidation 
Program 
Memory: 48K 
Language: Applesoft and 

Assembly 
Hardware: Apple II Plus 
Description: VMIX is a 
VigiCak file utility program. 
Features include: process Visi- 
Caic files of any size, con- 
solidate up to fifty files 
[nesting consolidations makes 
the effective number of input 
files limitless], automatic tab- 
bing between fields, all fields 
are fully edited. 
Price: $80.00 in U.S., $95.00 

in Canada 
Available: 

Evolution Software Inc. 

1632 Bathurst Street 

Toronto, Canada M5P 3|5 

1416] 787-3441 



Name: Maaterdisk 

System: Apple II 

Memory: 48K 
Language: Applesoft 
Hardware: 1 disk drive 
Description: Masterdisk is a 
disk utility that allows the 
user to examine and edit any 
standard disk. Four formatted 
displays, printer screen dump, 
undelete, single drive copy. 
Price: S29.95 includes disk, 

documentation, DOS 3.2 

and 3.3. 
Available: 

Master works Software Inc. 

1823 W. Lomita Blvd. 

Lomita, CA 90717 

(213) 539-7486 



Name: Autobahn 

System: Apple 11 or Apple 

II Plus 
Memory: 48K 
Language: Machine 
Hardware: Disk drive, 13- or 

16- sec tor 

controller 
Description: Autobahn pro- 
vides hair-raising excitement 
at 201) kilometers per hour! 
This incredible arcade game 



provides high speed driving ex- 
citement through heavy traf- 
fic, puddles, dark tunnels 
(with headlights), and even in- 
cludes an occasional fire tmck 
you have to avoid. Autobahn 
features super high-resolution 
graphics and has toggles for 
sound on/off, restart, and easy 
shifting of speeds. You can use 
keyboard or paddle control. 
I'rice: $29,95 includes disk and 
documentation 

Author: NASIR ■ Presented hy 

Siruius Software, Inc. 
Availahic: 

Your local Apple dealer or 
software store 



Name: Educational 

Assessment Test 
Scoring System 

System: Apple II Plus 

using Microsoft 
Soft card 

Memory: 48K 

Language : Microsoft 

BASiC-80 with 
CP/M operating 
system 

Hardware: Apple II, Radio 
Shack Models 1, 
II, III, and PET 



H£«! 



SYM-1/KTM-2 Enclosure 




ENCLOSUPE FEATURES: 

■ Lda Pioiii? D»igrt ia.5in '^iQeiiG 
In. DeepxA.Sin H\q\t 

■ 060 AlurTirniirr ■ Durable Charcoal 
Tenlurfl Fineh * Walnut Fim^TicClSiae 
Panels ■ HingM too * Pa-^r Panel, 
P0w?r5l'0 * Simula AS'^emQ]/ & 
inslructiori^ 



ENCLOSURE INCLUDES: 

■ Kayf-ad Acca&« Covoi * RuDEiei 
Feel • Fuse and Fuse Holder • rQ>ver 
OrL^iAilch • Teiminal Smo ■ AC Oullel 



KEN-WAY PRODUCTS 



MOUNTING PNOVIBLONS FOR: 

■ SVM,|/KTW,? ■ A<nl,on Mapno-y 
Goaid < Cooling Fan * (?) DBJb 
CDnncclars{fiS?3?l t Vn!E3Jack 



$95.00 



aSl Pallon Rd ,NewBriOMO'^- MinnFi'JDiB BSII? 



Interesting Software 

OSI • presents OSI 



$21,95 




All machine code and fast! Our finest arcade 
game. Where it's you against the mean, 
menacing worm! 



LIGHTNING 



I 



BOLT 



$29,95 



The most extensive D&D f adventure /fantasy for the 
OSM You must traverse through the evil land ot 
NOD, fighting and killing monsters every step of the 
way! Your goal is to search out a certain treasure 
that will allow you to free the land from! tie evil Demi 
Gods. Takes up the entire disk and uses full color 
graphics. 



Send to: 

Interesting Software 
15856 Ocean Avenue 
Whittier, CA 90604 



Send for our free 
catalog of the finest 
OSI software. 10% 
^f^il]^hi^^^_ 
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Description: The AES Educa- 
tional Assessment Test Scor- 
ing System correlates stutlenl 
nbjcciives with specific perfor- 
mance indicators and produces 
reports for three levels within 
a school district. The system 
produces a separate page for 
each student, indicating for 
each question whether that 
student's answer was right or 
wrong. A second report indi- 
cates for each student the per- 
centage of questions an.swcred 
right or wrong for each educa- 
tional objective. These same 
printouts ate available to 
reflect the results of the entire 
school and the entire school 
district. 

Price: S2000 includes installa- 
tion, one -day training ses- 
sion, operating manual 
Amhor: Robert C. Hamilton 
Available: 
Applied Educational Systems 
RFD 2 Box 213 
Dunbarton, NH 03301 



Memory: 48 K 
Language: Assembly 
Description: Castle Wolfen- 
stein™ is a new category of 
action-adventure computer 
game which bridges the gap be- 
tween arcade-iype games and 
the more complex adventure/ 
fantasy games. Castle Woifen- 
stein^'^ demands fast thinking 
and quick manual response as 
the player tries to escape from 
an unlimited variety of guarded 
rooms in a World War II 
German-occupied castle. 
Price: $29.95 includes 

documentation 
Author: Silas Warner 
Available: 

Muse Software 

330 N.Charles St- 

Baltimore, MD 2iMl 



Name: 

System: 

Memory: 

Language: 

Hardware: 



Name: 



System: 



Castle 
Wolfenstein^" 

Apple 11 or Apple 
II Plus 



SMART 

Apple II Plus 
48KRAM 
Applesoft BASIC 
Apple II Plus, 
disk drive and 
monitor. Second 
drive, printer and 
micromodem 
recommended. 



Description: SMART (Securi- 
ties Market Analysis, Report- 
ing and Transaction System) is 
a comprehensive, integrated 
system designed for institu- 
tional money managers and so- 
phisticated individual in- 
vestors. The system provides 
capabilities for retrieving, stor- 
ing, graphing and analyzing 
securities and economic data. 
A portfolio module provides 
capabilities for maintaining 
and reporting data and transac- 
tions. Users can automatically 
access data from one or more 
remote data bases. Graphic 
tools include o pen- high- low- 
close, volume histograms, line 
charts and point plots. Analy- 
tic tools include moving aver- 
ages, exponential smoothing, 
momentum, trend lines, on 
balance volume and user- 
defined formulas and routines. 
Price: $2150, introductory 

price includes program disk, 

data disk, manual 
Author: Software Resource, 

Incorporated 
Available: 

Software Resources, Inc. 

186 Alewife Brook Pky. 

Suite 310 

Cambridge, MA 02138 

(617)497-5900 



Name: TASC'^", ihe 

Applesoft 
Compilet 

System: Apple 11 
Memory: 48K 
Language: Applesoft BASIC 
Hardware: Apple 11 or Apple 
li Pius, Applesoft 
firmware card, 
one disk drive. 
Supports but does 
not require the 
Microsoft 
RAMCard or 
Apple Language 
system 
Description: This Applesoft 
Compiler from Microsoft con- 
verts Applesoft BASIC pro- 
grams into true machine code. 
Designed for the Apple owner 
who writes large and complex 
programs in Applesfol BASIC, 
TASC can compile at speeds 2 
to 20 times faster than the 
Applesoft interpreter. Other 
features: reduced program 
compilation time, minimal 
code expansion, compatibility 
with Applesoft so few program 
modifications are required, 
BASIC language extensions 
such as True Integer Arith- 
metic, inter-program commu- 
nication possible. 

(Continued J 



EXCELr9 

The Ultimate 6SO9 Board for Apple 




EXCEL-9 FLEX, a famous DOS, Assembler and Editor included« 

Also able to use Apple DOS. 

8KB versatile monitor contains 35 commands including 6809. 

Can handle all Apple slot I/O routine from EXCEL-9. 

On-board programmable timer for both 6809 and 6502 systems allows printer 

spooling, multitask, etc. 
50 page well documented manual. 
64K RAM area expandable for multi-MPU operation!" 
Able to switch MPU from 6809 to 6502 and vice versa in both machine code routine 

and BASIC. 
TSC 6809 BASIC, EXTENDED BASIC, PRECOMPILER, SOFT/MERG, etc.. are 

coming soon. 




Ask your nearest dealer 
or 

ESD LABS CO., LTD. ^^ 

c/o AbCom 

P.O. Box 5203 

Mission Hills, CA 91345 




Dealer Inquiries are Invited. 



Introductory 
Price: 



^^QO — _ for Board & FLEX 
^^jfjr*95 diskette 

(Sales tax not included) 



FLEX is a trade mark of Technical Systems Consultants, Inc. 
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Software Catalog 

fconlinuedl 

Price: $175,00 includes disk 

and reference manual 
Author: lames Peak and 

Michael T. Howard 
Available: 

Microsoft 

400 l(l8th NE, Suite 200 

Bellevue, WA 98004 



Name: Pascal File 

Exchange (PFX) 
System: Apple II 
Memory: 4eK RAM 
Language: Pascal 
Hardware: Apple 11 or Apple 
II Plus, language 
system, two disk 
drives, Micro- 
modem II or 
coupler and Apple 
COM card 
Description: PFX is an ex- 
ecutable Pascal module that 
permits erroi-checked tele- 
phone transmission of Pascal 
files bclween two Apple II 
computers. Once PFX is run- 
ning on both machines, the 
operators may establish a 
telephone connection, type 
messages in a "chat" mode, 
inspect the local and remote 



directories, schedule and ex- 
change one or more files and 
initiate the execution of local 
and remote Pascal code mod- 
ules. Since a copy of PFX is re- 
quired at both ends, an aux- 
iliary routine called "Pascal 
Pull Through" [PPTI is pro- 
vided to transmit and store a 
copy of PFX at the "far-end" 
computer. 
Price: $45.00 
Author: Graeme Scott 
Available: 

Arrow Micro Software 

11 Kingsford 

Kanata, Ontario, Canada 

K2K ITS 



Name: OSI BASIC 

Enhancet 

System: OSI CIP, 

Superboard, C4P 
Memory: 8K 
Language: Machine code 

w/BASIC-in-ROM 
Hardware: CIP, Superboard, 

C4P 
Description: Get real delete ac- 
tion, replace cursor with one of 
your own choice (defaults to 
checkerboard square], com- 
mands to RENUMBER your 
programs to make them easy 
to read, AUTOSEQUENCER 



will save you from typing in 
line numbers, screen control 
stops scrolling, one-key screen 
clear. A clear screen command 
has been added to running 
BASIC, LOAD and SAVE files 
w/filenames on a token I/O 
system to reduce load-save 
times by 50%. Runs in approx- 
imately 1.5K of RAM. 

Price; $19.95 postpaid includes 
autoload, autorun cassette 
only. Users Manual and bug- 
free guarantee. Or send $1.00 
for complete catalog. 

Available: 
Timothy W. lackson 
c/o Computer Science 

Engineering 
57 Seals Street 
Rm. 57-12 
Brookline, MA 02146 



Name: 
System: 

Memory: 

Language: 

Hardware: 



Graphic Writer 

Apple II or Apple 

II Plus 

4fiK 

Applesoft 

One dirve, DOS 

3.3, Graphic 

Printer, Applesoft 

Tool Kit 



Description: Graphic driver 
which allows users to get hard 
copy of the character sets in 
the Applesoft Tool Kit. May be 
used in conjunction with 
Applewritcr without affecting 
any commands. May be incor- 
porated in user's own program 
for use with print statements, 
for Silentype and IDS models 
440G, 445G, 460GG, 560G. 
IDS versions require Apple 
parallel or Apple Centronics 
interface 

Price; $34.95 includes diskette 
plus full documentation 

Available: 

Computer Station 
11610 Page Service Dr. 
St. Louis, MO 63141 
[314) 432-7019 



Name: Touch Typing 

Tutor 

System; Commodore VIC 

20 
Memory; 5K 
Language: BASIC 
Hardware; VIC 20 and tape 

player 
Description; Two programs; 
"19 Lessons" for you to 
gradually learn proper finger 



IBM COMPATIBLE 8" FLOPPY 
DISK for CBM/PET; Aim, Sym 



C 




p[naisKii 



HIGH SPEED - at least FOUR times faster than the 488 bus disks. 

HIGH CAPACITY — up to 850K bytes of storage in a three drive system. 

RELIABILITY —wide timing margins insure long trouble-free operation. 

SOFTWARE - the POOS II disk software provides a full set of BASIC 
commands with standard syntax. 
5%" MINI FLOPPY DISK SYSTEMS: 
Model 540-1 Single Drive. Double Density (143K 
Model 540-2 Dual Drive, Double Density (286K1 
Model 580-1 Single Drive, Quad Density (286K) 
Model 580-2 Dual Drive, Quad Density (572K) 

J^"' 8" MINI FLOPPY DISK SYSTEMS: 

Model 877-t Single Drive, IBM standard (295K) 
Model 877-2 Dual Drive, IBM standard {590K) 



$595.00 

$895.00 

$795.00 

$1,195.00 

$1,095.00 
$1,695.00 



ffuiT 



3 



FULL FEATURE "FORTH" FOR 6502 SYSTEMS 

Interpreter — Cross-Compiler — Cond. Assembler — 

Screen Editor — String Handling — Floating Point 

SPECIFY PEDISK II, PET 2040 or 4040 DISK, OR APPLE $75.00 



FOR INFORMATION, SEE YOUR DEALER OR: 

fMICROTECH) 

DEALER INQUIRIES INVITED 



ADD-ON DRIVES FOR TRS-SO* 

Model 1,5'//', 40 Track (102K) 
Model l,5'/4",80Track (204K) 



$329.00 

$429.00 



P.O. BOX 102 • LANGHORNE, PA 19047 • (215) 757-0284 

♦PET IS A TRADEMARK OF COMMODOFiE 
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placement on all keys; "Prac- 
tice" pseudo words (5-letcer in 
length OT Tandom length| with 
letters occuning at the same 
frequency they appear in the 
English language. Learn your 
WPM rate, % errors, and list 
enois. 
Price: $15,95 includes cassette 

and manual 
Author: Marion H. Taylor 
Available: 

Taylonnade Software 

8053 E. Avon Lane 

Lincoln, NE 68505 

1402) 464-9052 



Name: Super Stellar 

Trek 

System: Apple H 

Memory: 48K 
Language: Applesoft in 

ROM 
Hardware: Apple II, 

Applesoft in 

ROM, DOS 3.2 

or 3.3 
Description: This space action 
game is in Hi-Res color and 
real time. As a successor to^^ 
Steilai Trek, it has increased 
speed, a one-stroke display 



change, improved visual dis- 
plays, more sound effects, and 
ion storms. This program 
comes with a complete opera- 
tion manual. 
Price: $39.95 includes manual 

and floppy disk 
Author: Tom Burlew 
Available: 

Rainbow Computing Inc., 

Mail Order Dept. 

19517 Business Center Dr. 

Northridge. CA 91324 



Name: PLOT65 

System: H.D.E, (Hudson 
Digital 
Electronics) 
Memory: At least 16K 
Language: BASIC 
Hardware: Disk drive 
Description: PLOT65 is a col- 
lection of subroutines to ease 
the chore of creating charts 
and plots for applications pro- 
grammers. Supports auto axis 
generation |iic lines), auto 
scaling, bar generations, 
shading, writing of test fields, 
and plotting of single charac- 
ters. Graphic output is drawn 
on a Houston histi. HiPlot 
plotter Dmp2. 



Price; $150.00 includes 5.25 
disk containing software, and 
manual 
Author: Micro System Design 
Available: 
Micro System Design 
Assoc, and H.D.E. 
distributors 



Name: Compu-Read 3.0; 

Compu-Math 
Fractions 

System: Apple, Atari 
Memory; 48K 
Language: Applesoft, Atari 

BASIC 
Hardware: Apple II, Apple U 

Plus, Atari 800 
Description: Coaipu-Reod 3.0 
contains a series of instruc- 
tional modules which builds 
learners' skills by strengthen- 
ing the perceptual processes re- 
quired for competent reading. 
CompU'Matb Fractions, which 
builds mathematics skills, 
allows a learner to interact 
comfortably with the com- 
puter through a sequence of 
concepts and exercises which 
reinforce correct performance. 
Price; $29.95 for Compu-Read^ 
S39.95 for Compu-Math 



Fractions — includes 

documentation 
Author; Edu-Ware Services, 

Incorporated 
Available: 

Edu-Waie Services, Inc. 

22222 Sherman Way, 

Suite 203 

Canoga Park, CA 91303 



Answer to 6 502/ 6809 Pnzzle: 

On the 6502, the X and Y 
registers are 8-bit, and the total 
lime for this double loop is ap- 
proximately 328 milliseconds, 
providing a delay of approx- 
imately W of a second for a 
diskette motor drive to get 
started. On the 6809, the X and 
Y registers are 16-bit, and the 
time for this double loop 
becomes a bit longer — approx- ' 
imately 9 hours, 32 minutes, 
and 30 seconds or so! 



Answer to Border Puzzle: 

Welcome to MICRO'S world of 
I'sandO's!! 



MOtO 




cosmns 



SCREEN 




MIXER 




Double Density HCR 




Hi-Res Graphics+Text 




Lo-ReB GraphicB+TeKt 



SCREEN MIXER is a set of three modulea for APPLE-II. 
Just plug-in these modalea to your Apple-tt, and you will 
have the Apple-IIwith more features you could not expect 
till now 

SCREEN MIXER provides; 

#The mixed screen of any tv/o of screens available for the 
Apple-H. Please note that all of HGR, LCR and Text screen 
has two pages. The mixing is done with hardware, not like 
Hi-Res Text Generater Programs, thus you need no software 
and the scroll speed is not reduced. Also, you can scroll 
the text without any effect to the graphic patterns. 

9The Double Density High Resolution Graphics. Yes, you 
can plot 580 dots in one line. You have only Z80 dots in one 
line on ordinary Apple-II. (Software is required) 

ttOne of the most advanced character display. Besides 
Normal and Inverse characters which are already built-in 
you will have the choice of Half -Intensity and Hilighted cha- 
racters. And more, you may Over.- "Write or Over-Type any 
character to other character if you want to do sol 

(Software is included) 



Highlight 



NORMAL 



HALF 
INTENSITY 



Half Intensity 




\ ^^-n \ 


Kr-^\ 


V\ ^^ 


.V- 


\ \ n»«!\ 


Yi-^^ 


\ 


T-.....,.hS 


\ 


^ mm 



$60 l"*''o^"ctory price 

Offer ends Apr..3l,'8l 

cosmos 



550 



Over Write 



HTOfllO WFH rOiHPK'JI ibP" Ulif 



Dealers inquiries invited. 

For more information call or write to ASTAR INTERNATIONAL CO, 

5676 FRANCIS AVE,, CHINO, CA 91710 Phone 714-6Z7-9887 

Apple-II is a registered trademark of Apple Computer Inc. 
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A feast of 
computing ideas. 







You'll love every byte. 

If you work with a 6502 or 6809 based 
system, you're probably hungry for the 
(acts and ideas that will help you under- 
stand the inner workings of your com- 
puter. You want to go beyond canned 
software-use your computer for more 
than games-learn the advanced pro- 
gramming techniques that enable you 
to get the most out of your 6502/6809 
system, 

MICRO, The 6502/6809 Journal, 
gives you page after page, month after 
month, of solid information to sink your 
teeth into. MICRO is the premier how-to 
magazine for serious users otihe Apple, 
PET/CBM, OSI, Atah, Allvl, SYU, KIM, 
and all 6809 based systems including 
the TRS-80 Color Computer. It's a re- 
source journal internationally respected 
by professionals in business, industry. 
and education, 

SUBSCRIPTION RATES (U.S dollars) 
Yearly subscription (ISSN 027-9002) 
saves 20% off the single-issue price. 
U.S., $24 (SPECIAL OFFER: Save 30% 
off single-issue price: 2 years, S42] 
Other countries, S27 (via surface mail. 
Foreign air rales available on request.) 



Get more out of your Apple . . . 



with the MICRO 

ON THE APPLE series 



/MCftO 

on the Apple 



Volume J 



INCLIIQES I 
DISKETTE I 




VOLUME 2 just released! 

Morethan40 new programs on diskette 
to help you get more from your Apple: 

• fi/lachine Language Aids 

• I/O Enhancements 

• Runtime Utilities 

• Graphics and Games 

• Hardware and Reference Infor- 
mation 

31 choice articles 

46 tested programs on diskette 
(13 sector DOS 3 2 format) 

Volume 1 also available at $24.95. 
Together MICRO on the Apple 1 & 2 
provide more than 70 programs on disk- 
ette for less Than $1 .00 each. No need 
to type in hundreds of lines of code. 



with the most impor- 
tant book ever 
published for the Apple 




The most comprehensive description 
of Apple II lirmware and hardware ever 
published — all in one place. 
What's Where in the Apple? 

• Guidesyou— with a numerical At- 
las and an alphabetical Gazetteer— to 
over 2,000 memory locations of PEEKs, 
POKES and CALLs. 

• Gives namesandlocatlonsofvari- 
ous Monitor, DOS, Integer BASIC, 
and Applesoft routines— and tells you 
what they're used lor. 

• Helps BASIC users to speed up 
their programs. 

• Enables assembly language pro- 
grammers to simplify coding and inter- 
facing. 

All Apple users will find this book help- 
ful in understanding their machine, and 
essential for mastering it! 



* Look for all these MICRO INK publications at your local computer store, or 

• Call our toll-free number' 1 -800-227-1 61 7, ext. 564 (In California, 

1 -800-772-3545, ext. 564) and charge it to your VISA or f»1asterCard, or 

* Use the order form below. Send your check (payable to fvllCRG) and the form to: 

MICRO, Dept. OA, P.O. Box 6502, Chelmsford, MA 01 824. 



I °^ '^'^ ''^"^^ ^^'^^ ™^"^ a Cfieck enclosed D Charge my credit card below I 
MICRO on ttie Apple 2 @ $24.95 

I. MICRO on the Apple 1 @ S24.95 j^^ I 
What's Where in the Apple?. . . @ SI 4.95 | 

MICRO (U.S.) - - . . 1 yr @ $24; 2 yrs @ S42 Company 

MICRO (Foreign) 1 yr @ S27 gj^ji I 

I Subtotal I 

Massachusetts residents add 5% sales tax '^'^ ^'^'^ ^"^ I 

,,, .„ ^ ,. ,,. D VISA D IvlasterCarc) I 

Add S2 per book for shipping signBnjrc ■ 

L MICRO Journal excluded Aiiow 4-6 wee^s loi delivery ^ 

TOTAL ..^^^^^ Card l^umber E^piraiiQn Date ' I 
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ses on one of the original LINC com-'-' 
puters which DEC had produced for the q 
National Instimces of Heahh. Thei-. 
Psychology Lab at Duke University had '-' 
one which 1 was able to use, but only^ 
after 8 p.m. And so, with no one to talk m 
to, I sat there in the middle of the night '^ 
trying to figure out how lo do my i-. 
project. »— 



All programming was machine 
level, band -assembled and entered via a 
bunch of toggle switches. Quite a 
challenge. One night I tried a new pro- 
cedure as outlined in the manual. It 
said that "You will be informed if you 
make a mistake." Fair enough, 1 
thought as I keyed in several dozen in- 
structions on the switches, J pressed 
go, and was immediately, and very 
positively, informed that I had made a 
mistake. The CRT display showed, in 
big block letters: 



It's All 1'sand O's 
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As any serious computerist knows, com- 
puters, for all of their great capabilities, 
can be very frustrating at times. How 
many times have you been ready to 
throw in the towel because some dumb 
little problem was causing your great 
computer program lo fail? That little 
change which "couldn't be causing 
this"; that mistyped instruction that 
you overlooked a hundred times; that 
"minor exception" which wasn't 
documented; or, occasionally, a piece 
of hardware that really was ai fault, can 
all lead to headaches. It happens to all 
computerists from time to time, and 
every one has different techniques lo 
overcome these frustrations. 

Over a period of several years I 
worked on a large project that had its 
share of difficulties. We came up with a 
rather unusual solution to relieve the 
tension that these difficulties caused. 
We had, as part of the project, interfaced 
a voice synthesizer to the computer and 
had a number of programs to make it 
speak. We wrote a special program, 
hooked it up to be called whenever any- 
one pressed the PANIC button. When 
we got disgusted, ready to scream and 
abandon all hope, we could press the 
PANIC button. Then the computer 
would tell us, in its slightly "drunken 
Swedish" accent: "Its all ones and 
zeros!" Believe it or not, it seemed to 
help reduce the frustration and put 
things back into better perspective. 

The purpose of this regular recrea* 
tional page will be to help relieve some 
of your computer-oriented frustrations 
and to keep things in perspective. Most 
of the material in MICRO is of a rather 
technical nature and is meant to help 
you get more out of your computer 
system. The material in "Its All Ones 
and Zeros" will be of an entertaining 
nature and is meant to help you get 
your computer system out of your ner- 
vous system! 

Everyone is invited to contribute 
material. Anecdotes that relate to com- 
puters and programmers, puzzles, 
limericks, poems, cartoons, computer- 
generated art, unusual signs and 
slogans, and whatever you think would 
amuse your fellow MICRO computer- 
ists will be considered for this page. 



A Few Unusual Computer 
Instructions 

Way back in the distant past, about 

1965 or there ahouts, IBM was just 
coming out with its then-super com- 
puter, the IBM 360. At that time some- 
one published a list of instructions for 
this new computer. Many of them 
have, apparently, been incorporated in 
other computers since then, but I can 
only remember a few of them. Does 
anyone remember more, or maybe have 
the original list? Here are the ones I 
remember. 

READ AND MUTILATE PUNCH CARD 
BACKSPACE AND STRETCH TAPE 
INITIALIZE AND SCRATCH DISK 
TEST AND DESTROY MEMORY 

and, my personal favorite, 

EXECUTE PROGRAMMER 

A Simple Warning Message 

I got my start in computers in about 

1966 when I was doing my dissertation 
on cardiac activity and its relation to 
eye blinking [really!]. I was able to do 
some of my data measuring and analy- 
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STUPID! 



o 
o 



By the cold light of day that may seem o 
harsh, but sitting there at that console g 
at three in the morning, it broke me up. o 
It also helped to relieve the tensions 
and kept me going until the day shift 
came in and dragged me away from the 
computer. 

Doctor Bob 



o 
o 
o 
o 
o 
o 



A 6502/6809 Puzzle 

MICRO started covering the 6809 in June 1981 since it was similar to the 
6502 in so many ways. Although the similarities are great, some surprising pit- 
falls can occur in trying to adapt code between the two. I have a program which 
works on the 6502 with the following timing loop, but did not work with the 
68D9 loop. 

6502 6809 



LDX 


#$0 


INITIALIZE 


LDX 


#$0 


LDY 


#$0 


COUNTERS 


LDY 


#$0 


TLOOP DEX 




DECREMENT 


TLOOP LEAX 


-1,X 


8NE 


TLOOP 


AND TEST 


BNE 


TLOOP 


DEY 




DECREMENT 


LEAY 


-1,Y 


BNE 


TLOOP 


AND TEST 


BNE 


TLOOP 



and the code continued from here, A note to programmers not familiar with the 
6809. The LEAX - 1,X is essentially equivalent to the DEX of the 6502 in that 
it will decrement X and set the zero flag when it reaches 0, Can you figure out 
what makes these two sections of code, which at first glance seem to be iden- 
tical, behave very differently? For the answer, see page 121, 



The I's and O's that make up the border contain a message in 8-bit ASCII. 
Hint: the message does not start at the top left. 
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Hardware Catalog 



Name: Saturn 32K RAM 

Expansion Board 

System: Apple II 
Memory: 48K 
Description: Now for ihe first 
time ever you can do every- 
thing all other 16K RAM ex- 
pansion boards do, and more! 
Run Pascal, FORTRAN, PILOT, 
and ail other languages avail- 
able for the Apple II. Compati- 
ble with CP/M and Z-SO Soft- 
Caid, Increases VisiCak mem- 
ory. Comes with software that 
automatically relocates DOS 
onto one of the 16K banks on 
the board. Additional software 
will permit the user to store 
BASIC routines, arrays, data 
and program segments for over- 
laying and chaining. 
Price: $239.00 
Available; 

Computer Data Services 

P.O. Box 696 

Amherst, NH 03031 

1603) 673-7375 



Name: Time [I 

System: Apple 
Hardware: Real Time Clock 
Description: Time U is a real 
time clock /calendar for the 
Apple II computer. Time in 
hours, minutes and seconds. 
Date with year, month, date, 
day of week and leap year. Dip 
switch selectable interrupts. 
On board battery backup 
power for over 4 months power 
off operation. Battery charges 
when Apple is on. Includes 
16-seetor disk containing 
many programs for your Time 
I! clock. 
Price: $129,00 [Texas residents 

add 5% sales tax) 
Available: 

Applied Engineering 

P.O. Box 470301 

Dallas, TX 75247 

(214] 492-2027 

Name: Utility ROM 

System: Apple U or Apple 

II Plus 
Hardware: M.C.'s ROMPLUS 

or Andromeda's 

ROMBoard 
Description: Five Applesoft 
and disk utility programs that 
(almost) everyone has in soft- 
ware but never gets to use 



because it's too much trouble 
Co load and run them. Because 
ROM memory never forgets, 
you can now access these five 
utilities instantly without hav- 
ing to load them from disk. 
With the Utility ROM, you 
can do automatic line number- 
ing, control a program list-out 
with character or page mode, 
restore a crashed program in 
memory, alphabetize the cata- 
log directory on a disk, and 
create a disk without DOS to 
provide an additional SK of 
space on a disk. 
Price: $39.95 
Available: 

Soft CTRL Systems 

P.O. Box 599 

West Miiford, NJ 07480 

1201] 728-8750 



Name: CPS Multi- 
FunctioD 

System: Apple II 
Description: Provides all the 
capabilities of a serial inter- 
face, parallel output interface 
and real-time calendar/ clock- 
all on one card — occupying only 
one slot in the Apple II. Serial 
and parallel output may be used 
simultaneously from CPS. 
Price: S239,00 
Available: 
Mountain Computer Inc. 
300 EI Pueblo Rd, 
Scotts Valley, CA 95066 
or from yom local Apple dealer 



Name: Eli 2 Computer 

Interface for IBM 

Electronic 

Typewriter 
System: Any RS-232C or 

parallel printer 

port 
Hardware: Any mini- or 

microcomputer 
Description: ELF 2 Interface 
System accepts any ASCII- 
coded data from user's com- 
puter and transfers it in ap- 
propriate format to control 
IBM electronic typewriter 
Models 50, 60, and 75, pro- 
ducing letter-quality hard copy 
output. Ideal as a low cost 
word processor output device, 
the ELF 2 also permits full use 
of all typewriter ftmctions. 



Also available with IBM fac- 
tory reconditioned Model 50 
typewriter as a complete type- 
writer/printer package. 
Price: $495,00 includes com- 
plete step-by -step installation 
manual and operating instruc- 
tions. Brochure on request. 

Available: 
iPEX International, Inc, 
5115 Douglas Fir Road 
Calabasas, CA 91302 
(213) 710-1444 



Name: Hayes Slack^" 

Chronograph 

Description: The Chronograph 
is a stand-alone, RS-232C- 
compatible calendar-clock that 
reports date, weekday and 
time in 12- or 24-hour modes. 
Features include quartz-crystal 
precision, easy- to-read display, 
computer alarm, write-protect 
switch, battery backup and 
automatic leap-year adjust. 
The CbionogTapb is suitable 
for virtually any application re- 
quiring accurate timekeeping. 
It is covered by a two-year 
limited warranty. 
Price: $249.00 includes 

Chronograph unit, power 

pack, batteries and owner's 

manual. 
Available: 

Hayes Microcomputer 
Products, Inc. 

5835A Peachtree Corners E. 

Norcross, Georgia 30092 



Name: PEDISK n 

System: Rockwell AIM 
Memory: 16K minimum 
Hardware: Rockwell AIM 

board 
Description: PEDISK II is a 
high performance floppy disk 
system for the Rockwell AIM, 
Available with up to three 
drives, it can accommodate 
either SW" or 8" disk drives. 
The 8" drive offers IBM 3740 
cotnpatibilitiy. 

Price: S595,00 includes con- 
troller, cable, 5W" drive and 
DOS software. 
Available: 
OCRS Microtech 
P,0, Box 102 
Langhorne, PA 19047 



Name: GMS6S14 6PIB 

Module 

System: Motorola 

Ex ore is er/ Micro- 
module, Rockwell 
System 65 /AIM 65 

Hardware: 6" x 9.75" 
module 

Description: A general purpose 

interface bus (6PIB] module 



which meets all IEEE-488 
specifications, with control 
software, a wire-wrap section 
for custom input/output, oper- 
ating on a single -hSV power 
supply. Uses TMS 9914 LSI 
bus controller, has pass control 
and system control capabilities 
with device clear and trigger 
functions, parallel and serial 
pull, service request and 
remote/local selection. 
Price; $250.00 in single piece 

quantity, includes 72-hour 

bum-in. one-year warranty 
Available: 

General Micro Systems, Inc. 

1320Chaffey Ct. 

Ontario, CA 91762 

|7I4) 621-7532 



Name: Input /Output 

Board 

System: Apple 
Description: Provides eight 
buffered outputs to a standard 
16-pin socket for standard dip 
ribbon cable connection. Power- 
up reset assures that all out- 
puts are off when your Apple is 
first turned on. Features eight 
inputs that can be driven from 
TTL logic or a 5-volt source. 
Your inputs can be anything 
from high speed logic to simple 
switches. (Internal pull-up 
resistors provided.] Very sim- 
ple to program — just PEEK at 
the data. 
Price: $62.00 (Texas residents 

add 5% sales tax). 
Available; 

Applied Engineering 

P,0. Box 470301 

Dallas, TX 75247 

(214| 492-2027 



Name: Eye Lupes, 

Magniiiers and 
Comparators 

Hardware: Optical 

Components 
Description: Catalog 81 filled 
with optical components, eye 
Lupes, magnifiers and com- 
parators. Also a special section 
on microscopes and micro- 
graphic equipment. Catalog 
available free on request. 
Price: Products range from 
S2.00 - $279.00 

Available: 
Keyan Industries, Inc. 
196 Plain St. 
P.O. Box 183 
Braintrce, MA 02184 
(617)848-7636 
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DISCOVER Where Learning is Fun 
And Recreation Becomes Educational 

Computers and Learning . . . 
Games and the Arts... 
Kids Who Compute. . . 
Programming Problems & Solutions... 
Adventure . . . 



Written with the Beginnmg and Intermediate Computerist 
in Mind 

AO the exciting topics you can imagine fill each issue of 
RECREATIONAL COMPUTING. *How can your computer help 
you and your family? *W!iaI Is the best software to buy? *Is the 
newest hardware always the best? *How can you better use your 
computing power? Our pages answer these questions and more! 

RECREATIONAL COMPUTING is easy lo read, and makes 
the important topics easy to understand. Join us in exploring the 
pleasures and uses of small computers. Subscribe now and learn 
why we were the first personal compuling magazine, and growing 
faster than ever! 




SUBSCRIBE TODAY! 
You won't want to miss a single issue. 

Yes! Please enter my subscription for I year (6 
issues). 

□ IencIose$]2. 
D Please bill me. 

Name 



Address- 



City, Stale, Zip_ 



Depi. TIO, P.O. Box E. Menio Park, CA 94035 

_i I 




Are you ready 
to take 
the next step ? 



4-'_rrr- 



DrD( 



'OBB's Journal 

For users of small computer/ systems. 



Let the Doctor's prescriptions fill you with the most 
vitalizing, up-to-the-minute information for you and 
your Micro! 

These new remedies include the latest in operating systems, 
programming languages, hardware design and architecture, data 
structures, telecommunications and more. 

Recent articles have included: Anaiysis of the 6502's Op- 
codes, A Z80 Memory Test. N-Logs: A New Wumber Language 
for Scientific Computers, CP/M to Pascal File Conversion, and in- 
depth hardware and software reviews. 

All this and more for only S21 per year — 12 issues! 



Yes! Please enter my subscription for 1 year (12 
issues). 

n I enclose $21. 
□ Please bill me. 



Name_ 



Address. 



City.St3te.zip.. 



Dept. TIO, P.O. Box E, Menio Park, CA 94025 
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Next Month in MICRO 



OSI Feature 

■ A Cross-Reference Generator — This 
article describes a cross-reference 
generator for OSi ROM BASiC whicli will aid 
in finding any variable or line number within 
a BASIC program. 

• Data Statement Generator — A 

convenient, machine language program to 
convert machine language routines to BASIC 
DATA statements is presented, it can be 
applied to all OSI BASIC-in-ROM machines. 

• Autonumber Plus for the Cursor Control — 

This program automatically increments and 
prints line numbers when you type in BASIC 
programs. 

Math Feature 

■ Numerical Soiutlons of Ordinary 

Dtfferentiai Equations — This article 
includes an Applesoft program and short 
description of a fourth-order Runge-Kutta 
method for solving ordinary differential 
equations. 



Legrange Interpolating Polynomial — Use 

this routine to fit a curve to your data using 
as few as four data points. Runs in any 
machine with floating point BASIC. 

VIslCalc Formuias for Depreciation — A 

discussion on the use of VislCalc to 
compute depreciation. 

SIN(X) The Hard Way — Microsoft BASIC 
uses a series expansion formula to calculate 
the size of an angle. The logic of this 
machine language routine is emulated here 
in a BASIC program. 



Other Articles 

A Disassembler for the 6809 
KIM-1 Bouncy Keypad Cure 
An I/O Expansion for the AIM 

Plus our regular columns and departments) 



20% OFF 

Your money goes farther when you sub- 
scribe. During the course of a year, when you 
subscribe, you save 20% (in the U.S.), 

Pay only $24.00 ($2.00 a copy) for 12 monthly 
issues of MICRO sent directly to your home or 
office in the U.S. 



More MICRO for Less Money 
When You Subscribe 

But on the newsstand — if you can locate the 
issue you want — you pay $30.00 a year ($2.50 
a copy). 

Special Offer — Subscribe for 2 years ($42.00) 
and get 30% off the single issue price. 

Subscribe to MICRO today. 



MICRO 

34 Cheimsford Street 
P.O. Box 6502 
Cheimsford, MA 01824 

Please send me MICRO for 1 year _ 2 years 

NOTE: Airmail subscriptions accepted for 1 year only. 



Subscription Rates Effedlve January 1, 1982 
Country Rate 



Check enctosed $_ 
Charge my 



, VISA account 

, Mastercard account 



No. 



Expiration date , 
Name^ . 



United States 

Foreign surface mail 

Europe (air) 

Mexico, Central America, Mid East, 

N.& C.Africa 
South Am., S. Afr., Far East, 

Australasia, New Zealand 



S24.00 1 yr. 
42.00 2 yr, 
27.00 
42,00 

48.00 

72.00 



* Airmail subscriptions accepted tor only 1 year. 
For U.S. and Canadian 2-year rates, multiply by 2. 



Address 



City/State _ 



Job Title: 



-Zip 



Type of Business/Industry: , 



\ 
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FEATURING 
SPECTACULAR 



p. 



GRAPHICS 
& SOUND 



"THE BEST ARCADE TYPE GAME 
I'VE SEEN . . . GREAT FIRE 
POWER!" 

ROB McCONNELU. 
ARCADE 8 

/"'NOTHING MATCHES ELIMINATOR 
- FOR SHEER FUN. I CAN'T STOP 
PLAYING!" ^. 

PAT HENDERSON. ^C 

ADER ->■ 



Your the pilot ot The 
Eliminator, a space fighter 
of the Defender Class. It has 
lighting fast response andtjs 
armed to the' teeth^ with 
awesome firepowel^ 

$ ■- 
But you're outnumbered! And 

your attacl<€rCare kejn. Your 

only options, are victb^y or a 



>»»' 



WgPLE VERSION BY ilOHnLAM^ERSON 

TiRS-80 VERSION BY IWAYdHPWESTMGRELAND & TERRY OILMAN 



INTERNATIONAL 

A DIVISION OF SCOTT ADAMS. INC 
J ' BOX 3435, LONGWOOD FL 32750 
|305| 862-6917 (QUESTIONS) 
OROeB FROM VOUR FAVORITE DEALER 



i^PPLE 2 ■ 48K DISK (DOS 3.3 REQ'D.) 
^TRS-80 • 16K TAPE MQDELJ OR 3 
TRS-80 - 32K DISK MODEL 1 OR ^ 



042-0134 $29.95 

010-0134 $19.95 

012-0134 $24.95 



SHIPPINGj^' HANDLING ARE EXTRA, PfllCES SUBJECT TO CHANGE WITHOUT NOTICE 
(.WHITEiFOROIJRFREE'i BO PROGRAM CATALOG 



.WHITEll 



ART ^: 1SB1 - DON DIXON 



8 in IL N J II N eirC N C € /H IP IL TIN e 

Qk9^k9Sk9S0! ONE OF THE WORLD'S LARGEST INVENTORIES 













VisiCalc 



List S200.00 now 



$149.00 
$ 199.00 

(Disk) List SI 5.00 ...now $3*99 



MrSCELLANEOUS 



Escape Irom Aclurus 

Q3 SIC Mailer 

Memofy WanagsFneni II 

C^^ile Wairpn-siain 

Upper Reaches ol Apshai , 

Bridge Tjlor 

PASCAL Animation ToDIa 

Kanfl Holiling BASIC 

UT-100Emulalor 

Space Quark 

Beneain Apple DOS (book) 

Binhiadhie Phoenii 

Goblins 

Pairier Power 

U S ConsMliilicin 

Merger 

SupBf SlBllar Trek 

LISA 

V.piDi (Vuccipal 

V-Siai 

V-PnrI 

Brain Surgeofr 

lnloMes[er . 

Waierloo il 

Fam¥Blana2U4i 

Torpedo Terror 

Speedsiar 

Kavesol Kari*han 

Dos Boss , , 

Me moiex Disks . . . ...",.'',■ 

Verbatim Daialile-plain iv/h"ut>s'._ 

Dysans 

Flipson BoJ 

Scolcfi Disk Cleaner 

Alar'/TRS-BO-zPer 



529 95 nw 
5E9 95 no* 
S49'95ni™ 
S29 95 no* 
. .SlS 9S. 
. ,53395 <io- 



^"29 95 no. 
SI9 95 f,at, 
514 95 no. 

.S27SO 
539.95 no~ 
S29 95 now 
549 S5 no- 
S39 95 
■ .S79 95 no- 
S29 95 
S29 95 rrow 
529 95 no- 
S49 9S 

5150.00 no. 

.549 95 

.559 95 no. 
524 95 no- 

S 139.95 

.549 95 no- 
,,..S24 0D 



329 95 
WrltB (•<. IhIbi 




Q ViSiFileUslS250.00 now 

Q Horriblescope 

Q 



Q 

fl 
Q 

Q 


n 


Q 


Q 

B 


Q 

fi 

fi 



B 


B 

a 



GAMES 

Hi-Res Soccer a29 95 now 

Apple'-OiOs S2995 ™. 

Wursi Of Hunhnglon Compuling . . . . 

Gobbler S24 95 now 

UlUma S39 9S m- 

Auiubahn S29 95 no. 

Batlle Cruiser Action S44S5no. 

Gorgon S39 95 no. 

Super Stellar Trek S39 95 nn. 

Helll I re Warrior 539 95 no. 

Gamma Goblins S29 95 now 

Mission Asteroid .51995 no. 

Wi;dri]r> S49 95 no. 

Slar Mines S29 95 no. 

WarpPaclor 539 95 nn. 



S1I.3* 

ill. 19 

tia.e* 

ilS.39 

tsa.s« 

$33. a« 

t33.S« 
$33. 99 
$11.39 
tlV.«9 
$41 .•9 
$11.39 
$13.99 



WURST OF 



Read Softalk's review 

on page 87 of the 

October issue 

$19.99 



Sneal^ers 
Copisa Robbeis 
PoLO-Goia I 
Pot-0-GolD II 

Ring of Sal urn 

SlreetsoltheCily S Trucker 

Presidenl Elect 

DiS'O-Doc 

MeO fly Mania 

Hungry Soy 

Anova 

Sohlaire 

The Source 

Raceror Midnighi 

Hi Res Secrels 

Banners I ..*.,-. 

CompleieGrapliic6(TablBl) 

Special Eflecis ITablel) ' 

Inkwell Apple' ill , 

Snack Attack 

V-Ptol 

Disasern/es 

The Inspector (Disk QiProin) 

Tbe Book 

DontiBookl 

Using 5502 Assembly Language 

Efpandapon 

Firetjird ■ 

Thiel 

Threshold 

Taigel Planner 

Paddle. Adapple 

So Cal Research 

WordHandler ..., .■, , ... 

GAME^ 

Microsoll Adveniyre 

Wizard and the Princess 

Fliohl Si rriu later 

OcTysSBy 

S argon II 

Space eggs 

Hi-Res Cfibbage 

Lords ol t^afma tcass.i 

Oh Shooi 

ABM . 

Computer Conllid ' 

Computer Air Cbmbal 

Temple ol Apshai 

Zoik 

All Nibble SoKware 

Robot Wars . . 

C ran slon Manor 
Dragons Eye 
Computer Acquire 
Twala s LasI Redoubl 
Alien Ram 
Alien Typhoon 
Raster Blaster 
JD Skiino 
Creature venture 
' Gala ley Spai:e War i 
Meleoioids m Space 
Dragon Fire 
Pool 1 5 



NEW PROGRAMS 

529 25 00. 



334 95 no. 

533 95 no- 
S39 95 no. 
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NEC Green Screen Monitor lisis285,oo now $199.00 

Zenith Green Screen Monitor ustsisg.oo ,.., now $109.00 

Ulysses ust S34.95 now $29.69 

Speed/asm ust 539,95 now $33.89 

Lisa 2.5 LJS1S79.95 .....now $67.89 

Dinosaurs ust sis.oo now $ 1 1.69 
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i: 
"Q 





B 

B 



B 



B 



;^B 



B 


HB 





529 95 no- 
529 95 no- 
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BMP Joystick 

Here's a joytsick you won't 
want to be without. It's the oniy 
joystick we know about that al- 
lows you to change the axis 
with a flip of a switch. Only the 
highest quality parts are used. 

A real bargain at 

$49.95 



ORDER BY PHONE 
800-344-4111 (outside Calif.) 
800-692-4143 (inside Calit.) 

209-992-54 1 1 (fureign or local) 

Ajukb 1^ a 'egi^tsTHi irdaDmarH oF Adfiie Compiiier inc 



HUNTINGTON COMPUTING 

Post Office Box 787 
Corcoran, California 9321 2 



9^ 



We lake MaslerCard, VISA or American Ex- 
press Ondude card /f and eHpiration dale) 
CaFilorma residenis add G"^ ra* Include 
S2 00 lor poslage Foreign and hardware 
exlra. Send lor Free calalo^ Prices siibiaci to 
c^iange 
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